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The antertece to the internal logica routine 
LNMSDELETE_LNMB has been changed. Update 2 SDELLNM, which calls 
this routine, to reflect this new interface. 

The performance sopourenent cell used to monitor the re rete of 
popical name translations is n 

ernal pogical name routine LNMSSEA 
because o 


current ty located with 
HLOG. 5 eaeneiel 
ts current placement, any attempts to delete 
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$8 TODD M. KATZ 01-APR-83 
000 SYSTEM SERVICES TO MANIPULATE LOGICAL NAMES 
000 CREATE LOGICAL NAME TABLES 
000 CREATE LOGICAL L MA ME 
000 DELETE LOGICAL NAME 
O60 TRANSLATE LOGICAL NAME 
000 MODIFICATION HISTORY: 

00 V03-027 RASO327 Ron Schaefer 24-Jul-1984 
000 Back out RASO322 and make the LNMS$_LENGTH itemcode 
898 be a longword value. 

00 v03-026 RASO302 Ron Schaefer 10-Jul-1984 

° Fix STRNLNM item LNM$_LENGTH to only write a word field. 

¥03-025 RASO312 Ron Schaefer 21-Jun-1984 

Fix ORB alignment within logical name table. 

v03-024 Texopté Todd M. Katz Rig. ad ion 
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SYS. SRCJSYSLNM.MAR; 1 | 
gpeg tiie Logical names will also seerenent this counter. This i 
s because the system service SDELLNM will call the routine 
LNMSSEARCHLOG in such a situation. Therefore, in order to be 

able te make a more accurate measurement of the overall rate 

of bog cal name translations, I have decided to move this 
performance measurement cell from its current single location 
to several nore appro riate locations. one of these new 
locations is within the system service STRNLNM, Just before the 
call to LNMSSEARCHLOG. 


TMKOO13 Todd M. Katz 29-Mar-1984 

Modify the logical name syeten services to make use of the 
updated internal protec on checking mechanisms. What this 
requires is a modification to SYSSCRELNT so that ot} shareable 
Logical name geese are created with a quad-word aligned Object 
Rights Block in place of a un-aligned CHIP protection template. 


Restrict all names which oppese with a directory table to 31 
characters consisting of the DEC multi-national alphanumeric 
character set plus $ and _. This restriction applies to both 
logical names and logical name table names. The reason for this 
restriction is that in the future we might want to support 
hierarchial name spaces. If we decide to do so we would have to 
invent and then impose a structure on logical name table names. 
This restriction gives us sufficient leeway (and more 
ingertentiy sufficient available characters) to be able to 
define a hierarchial name space structure in the future. 


TMKO012 Todd M. Katz 07-Mar-1984 

The fixed portion of each and query translation block has been 
increased y a word, LNMX$W_HASH, in order to potentially hold 
the translation's hash code value. Furthermore, SYSSCRELNT and 
SYSSCRELNM have been modified so that this field within each 

and every translation block is int pial ized to 0. This hash code 
field will be used in an optimization of logical name table name 
processing. As such, only certain logical names, those that are 
contained within the process or system etrecters and may be used 
in logical name table processing need to have the hash code 
fields of each of their translations initialized to their 
equivalence string's hash code value. This initialization 

es tues ty takes place within the routine LNMSINSLOGTAB in the 
module LNMSUB. 


TMK0011 Todd M. Katz 13-Feb-1984 
Add SS$_NOLOGTAB to the List of errors than can be returned 
by SYSSTCRELNT, SYSSCRELNM, and SYSSDELLNM. 


Fix a bug in STRNLNM. At the present time the very first 
longword in the item List is not being probed. Obviously this 
could result in a disasterous kernel mode ACCVIO. 


Fix up STRNLNM's processing of the PARENT item. The most 
important change I have made here, besides a general f me 

of the code, is to return oytes in the parent item if the LNMB 
being looked at is not for a logical name table. This is because 
rogical nenes, with the exception of logical name tables, do not 
ave parents. 
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Optimize the processing of STRNLNM's item List. This is done 

by having two separate code Sogncges = one to probe and return 
variable Length character string items ee STRING, PARENT), 
and the other to prove and return longword Length items (LENGTH, 
ATTRIBUTES, MAX_INDEX). In addition, since ACMODEs are on Y 3 
aye. ACMODE items are now be ng preded and filled in in-line. 
Also, optimize a few instructions within this system service. 


TMKO010 Todd M. Katz 29-Dec-1983 

Re-write SYSSDELLNM for the case when the name of the logical 
name table entry to be deleted has been specified. What was 
being done was incorrect. It allowed the possib lity of deleting 
several logical names from different tables. The correct way 

to implement this is as follows: 


1. Search for the first instance of a logical name table entry 
in one of the specified logical name tables which possesses 
the specified access mode. 


2. Check to make sure that the caller has write access to the 
containing logical name table. 


3. Delete the logical name table entry and all outermode 
aliases within the same logical name table. 


The process and system pirestery bogtgel name tables are now 
being created with the LNMBSV_NODELETE bit set within their 
LNMBSB_FLAGS fields to indicate that these tables should 

never Be deleted. Therefore, it is no longer necessary for 
SYSSCRELNT to set this bit within the appropriate directory 
table to protect it from being deleted hs, the insertion of 
the table pe for the new logical name table, and conversely 
SYSSCRELNT must never clear this bit within a directory table 
after the attempt at insertion has been made. 


Fix a bug in the creation of Logical names without translations 
by SYSSCRELNM. This used to work, but has broken mysteriously. 
The problem is that dur ~ the first cocess ing of the item 
List, the number of translations specified by the List and 

the cumulated size of their translation strings is saved on the 
stack for use in conput ing the amount of storage required to be 
allocated for the new logical name press These stack associated 
counters were not being appropriately nitialized to zero in the 
case when no item List (and thus no translations) was present. 
This resulted in the size of the table name and the address of 
the table name buffer being popped off the stack and used as 
the values of these counters. As might be eupec tog this would 
cause the system service to fail in a variety of interesting 
ways. Often, s nce the saved logical name hs le name descriptor 
had agen repoved rom the stack but fhe pointer to the saved 
descriptor in RY had not changed, th H wayté lead to a failure 
to find a logical name table and termination of the system 
service. Also, $ nce the values ysed in computing the amount 

of storage required for the new logical name were random, the 
value compute could be so large as to cause the storage 
allocation attempt to fail. 
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v03-019 [AKOO0? Todd Retz 18-Dec-1983 

ve al aentten of att V_SYSTEM and LNMSV_GROUP from 
SYS CRELNT. The system tablé and all group tables will be 
handcra col. and there will not be A way to create such a 
table by means of the system service interface. 


Also, change some PUSHRs into PUSHLs (or MOVQs) and POPRs into 
POPLs (or MOVQs) where appropriate for performance reasons. 


v03-018 TMKOO08 Todd M. Katz 26-0¢¢-1983 
quese chet ing when testest name tables are b te created 
resently incorrect. Currently, when a lo name 


4X e is created only one type of quota ches ‘s made. That 
check makes sure that the quota Goreer 8 f the | becent logical 
name table has sufficient quote f or both pe Logical name table 
itself and any quota which wi t be spect! cui ty allocated to it. 
Actually, two pore checks eee be made. The quota holder of 
the parent lo cot name sents should have outhitions quota for 
the uote that will be apes jicesty allocated to the new table; 
ays addition, the containin le (the ezoten, or 1orgcess 

di rectory ta tables eat nove sufficient quota for tne logical 
name table itself. This is consistant with how quota eo Fae 
are made for Lesica} names, and it is consistant with the 
philosophy that logical name tables are just logical names with 
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4 a@ special type of translation. 

00 v03-017 TMKO007 Todd M. Katz 26-Sep-1983 

000 Change the default protection that is assigned to new shareable 
4 logical name tables to SYSTEM:RWED OWNER:RWED GROUP: WORLD: 

00 so that by default, the system can access and modi fy any 

44 shareable logical name table. 

500 v03-016 TMKO006 Todd 16-Sep-1983 

00 Fix a branch in EXESCRELNT. 7 If no attributes Core specified, 

00 his service should branch to ehach out the table name 

00 parameter; however 


t is branching into the wens piace: This 
results in an inability to create a logical name ta if 
attributes are not specified. This” fixes the problem. 


vO3-015 TMKOO0S Todd M, Katz OCrAug~ 1963 
Rake several modifications to each of the logical name system 
services. 


Changes to EXESCRELNT: 


1. Change access mode grecessing. The new logical name table 
aey not be created in an access mode inner to that of the 
lor unless the user has SYSNAM er ivilege and has 
specified an access node as an ob onal s Stitt” service 
or pyenent. A new hoatces mene ge le ney still be created 
h an access mode outer t o nade © 9 cen ler. even if 
the 92 j ler does not have STSNAR pr Rd, Me aller 
explicitely specifies an access mode as an opt ~K system 
service parameter. 
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2. Anew logical name table maybe marked within the table 
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header as either the system table or a roup table (but not 
both) by setting one of the new attribute b $s (reserved to 
DIGITAL) LNMSV_SYSTEM or LNMS$V_GROUP respectively. The 
caller must be in executive or kernel mode to do so. 


3. It is necessary to have quota access to the parent logical 
nam he in order to b¢ able create @ subtable. In 
addition if the table being creat ng is shareable, and the 
caller is specifying a name, then the caller must have write 

access to the system directory table. Previously, read and 

write access to the gerens no di nene able was what was 
being faeched. This is not only insufficient but wrong. | 
have also moved these access checks so that they are 

por sornee immediately after the parent logical name table is 

c ° 


Wr—Oo 


4. SYSNAM was formerly required to specify the name of a 
shareable logical name table and not let the system default 
name it (ie = insert the name into the system directory 
table). The meaning of SYSNAM has been restricted to refer 
ony to the access of the system logical name table, 

LNA bd MSF and to the creation and deletion of inner 
access mode logical names and tables. 


“ 
2 


If no protection mask was specified, then default the 
protection to O:RWED. 


6. It is never necessary to do any prevesioys chech ing when 
greceseqorSvete logical name tables are involved. Therefore, 
do not allocate or fill in the CHIP protection structure 
template when creating a process-private logical name table, 
and do not perform any protection checking during the 
creation of such tables. 


Changes to EXESCRELNM: 


1. Change eccege mode processing. The new Logical name may not 
be created in an access mode inner to that of the caller 
unless the user has SYSNAM privilege and has specified an 
access mode as an optional system service arguement. A new 
logical name aay still be created with an access mode outer 
to the mode of the caller, even if the caller does not have 
SYSNAM privilege, if the caller explicitely specifies an 
access mode as an optional system service parameter. 
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It is only necessary to have write access to the logical 
name table in order to be able to insert a logical name 
— its Previously, both read and write access was 

required. 


ww 
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In order to be able to insert a logical name into the system 
directory table a caller must be able to write access the 
feole itself. Prev ous ty the col er could perform such an 
nsertion if they had S$ SNAM privilege. The meaning of 

YSNAM has been restricted to refer only to the access of 
the eysten bogirat name table, LNMSSYSTEM_TABLE, and to the 
creation and deletion of inner access mode logical names and 
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tables. 


4. It is never necessary to do any eretecsten check ing when 
process-private logical name tables are involved. Therefore, 
do not perform any protection checking prior to the insertion 
of new logical names into such tables. 


Changes to EXESDELLNM: 


1. Change access mode precege tng. Logical names or logical 
name tables in access modes inner to that of the caller 
may not be deleted unless the user has SYSNAM privilege and 
has specified an access mode as an optional system service 


OOOCOCoCOOCoooo 
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arguement. Logical names or logical name tables in access 
modes outer to the mode of the caller may still be deleted 
if the caller explicitely specifies an access mode as an 
optional syetes service parameter, even if the caller does 
not have SYSNAM privilege. 


When a single logical name table entry was to be deleted 
this system service was cogytt ine delete access to the 
containing logical name table before allowing the deletion 
to proceed. When all logical name table entries within a 
logical name table were to be deleted, no access epocking 
was oetee done. This is incorrect. The access requirements 
for the deletion of logical name tables and logical names 
are as follows: 


~m 
oe 


a. To delete a logical name, write access to the containing 
logical name table is required. 

b. To delete a logical name table, either delete access to 
the table itself or write access to its containing 
saglee. Sane table (the system directory table) is 
required. 


3. It is never necessary to do any eretestres chect tng when 
process-private logical name tables are involved. Therefore, 
do not perform ony protection checking erver to the deletion 
of any process-private logical name table entry. 


Changes to EXESTRNLNM: 
1. This syster service would accept an invalid access mode as 


an optional system service parameter without returning an 
error. Add access mode error checking. 
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2. It is never necessary to do any protection checking when 
process-privéte logical name tables are involved. Therefore 
do not pre rere any protection cheek tag if the target Logical 
name table entry is process-private. 


V03-014 RASO166 Ron Schaefer 5-Jul-1983 
Reverse oiertty of branch in positioning fo a translation 
index within a STRNLNM itmlst. Also optimize #-1s. 


vO3-013 wMc0001 Wayne Cardoza 23-Jun-1983 
Add chained item lists, parent item code. 
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v03-012 RASO160 Ron Schaefer 16-Jun-1983 
enone ail arguments to be by-reference. This affects 
CMODE git services 
ATTR CRELNM, SCRELNT and $TRNLNM 
PROMSK SCRELNT 
QUOTA SCRELNT 
V03-011 DMW4046 DMWalp 99-Jun-1983 
Post sptereret ten of new logical name structures 
1.) MAX_INDEX in TRNLNM returns the maximum index 


43 ; 
44; 
$2 ; 
‘? ; 
rk ; 
ao 
52 ; 
a 34 : 
8808 2 ; if non-negative, qise - 
23 2.) Clean up the setting default index value of 
Bay 2$ 3 zero in TRNL 
3 38 : 3.) Replace “XFFFF with LNMS_LNMB_ADDR as item value 
00 59 ; V03-010 DMW4038 DMwal 25-May-1983 
8 r$ : Fix check for LNMS. LNMB_ADDR item : 
0000 6¢ ; V03-009 RASO158 Ron Schaefer 25-May-1983 
0000 63 ; Add protection structure and checking to logical 
0000 64 ; name tables. Currenly, only SOGW protection is implemented. 
0000 65 ; Correct item List buffer probing in STRNLNM to make 
8000 66 : it tolerate longer than necessary buffers. 
0000 368 ; V03-008 DMw4029 DMWalp 25-May-1983 
0000 69 ; Added code to CRELNM to allow MTL and mailbox UCB to be 
0000 70 ; intergrated with the new bogicat name structures. This 
0000 fl 3 includes the addition of LNM$_LNMB_ADDR and work to allow 
44 i 3 LNMSC_BACKPTR to be accpeted thru System service interface. 
0000 374 ; V03-007 TMK0004 Todd M. Katz 30-Apr-1983 
0000 75 ; When VMS must default name a new logical name table, it is 
448 76 ; iven a name of the form LNMSxxxxxxxx instead of a name of 
44 y 3 he form LNTSxxxxxxxx. 
9000 79 ; V03-006 TMKO003 Todd M. Katz 25-Apr-1983 
444 9 ; Make multiple to changes to the routines within this module: 
0900 8 ; EXESCRELNT: 
000 4: 1. Un-comment the SETIPL that was commented out for debugging 
00 5 3 purposes. 
: : 2. Change several instructions to conform to VMS coding 
8 : requirements. 
0 50 : 3. If a receasprivate logical name table is to be created, 
91 ; the size of the logical name block is saved on the stack 
38 3 the system pool logical name block is coat Locator. the size 
95 3 is retrieved, and process-private P1 space is allocated. | 
94 ; was saving this size as a word on the stack, and this was 
95; creating proplens allocating Pl space, after the size was 
38 3 popped off the stack ecouse I neplecteg to zero out the 
97 ; "9 order word. To fix this problem, size is now saved as 
38 3 a longword on the stack. 
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4. R2 is now saved before calling LNMSLOCKW (which destroys it) 
instead of after. 
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Instead of hy, up the QUOTA arguement twice from the 
user's parameter list, it is picked up and saved the first 
time it is needed. 


6. Pickup ACMODE as a byte instead of a longword. 


7. Change the name of TABNAM to RESNAM, TABLEN to RESLEN, and 
LOGNAM to TABNAM, 


8. If the new table is mapped to an existing table, then save 
the address of the gates tng LNMB on the stack before 
cook ne the new LNMB so that the table's name maybe 
returned if required. 

EXESCRELNM: 


1. Fix an incorrect probing of the TABNAM parameter. 


OOooooooooooooooooooo 
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2. Un=comment the SETIPL that was commented out for debugging 
purposes. 


WN 
. 


Do not perform any validation of the item List (except for 
the STRING item) during the first pass. 


Return SS$_NOGRPNAM instead of SS$_NOPRIV is the user does 
not have sufficient privilege to create a shareable logical 
name. 


= 
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If a prpecenyr aces Logical name is to be created, the size 

of the logical name block is saved on the stack, the system 

pool logical name block is deallocated, the size is 

retrieved, and process-private P1 space is allocated. I was 

saving this size as a word cn the stack, and this was 

creating problems allocating P1 space, after the size was 

popped off the stack because | ak a to zero out the 

19 order word. To fix this problem, size is now saved as 

a longword on the stack. 

6. Pickup the address of all item buffers before probing. After 
probing refer only to system service copies of these 
addresses, and not to user copies. 
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7. As each translation block is created, check to make sure that 
creation of this block would not result in the exceeding of 
the space allocated for the logical name block. 


8. Change several instructions to conform to VMS coding 
requirements. 


9. Pickup ACMODE as a byte instead of a longword. 
EXESDELLNM: 
1. Un=comment the SETIPL that was commented out for debugging 
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v03-005 


v03-004 


v03-003 


16-SEP-1984 :22:4 AX/VMS Macro v04-00 P S 
~$Eb= 1382 BSi82i88 FANEMRS Hace yk 00, ee 
purposes. 


2. When the deletion of a specific logical name in an access 
mode other than user has been requested, all outer access 
mode logical names with the same name and in the same table 
are also deleted. 


3. Pickup ACMODE as a byte instead of a longword. 
EXESTRNLNM: 
1. Fix an incorrect probing of the TABNAM parameter. 


2. Un-comment the SETIPL that was commented out for debugging 
purposes. 


3. Pickup the address of all item buffers before probing. After 
probing refer only to system service copies of these 
addresses, and not to user copies. 


4. Change how the index of INDEX items are validated. 


ae snares several instructions to conform to VMS coding 
requirements. 


6. Return the attribute bit LNMSV_SHAREABLE in the ATTRIBUTES 
item whenever the name being translated is shareable. 


7. Pickup ACMODE as a byte instead of a longword. 


8. Change how the ACMODE arguement is interrupted. If the 
arguement is 0, maximize with the mode of the caller; 
ot Orytats the specified mode is used to qualify the 
search. 


9. Change the attribute bit LNMSV_NOT EXIST to LNMS$V_EXISTS. 
This bit will be set in the ATTRIBOTES item buffers of those 
indexes that do exist, and clear in the ATTRIBUTES item 
buffers of those indexes that do not exist. 


BLS0219 Benn Schreiber 19-Apr-1983 
Make some BSBW's into JSB's with lLongword displacements. 


TMKOO002 Todd M. Katz 18-Apr-1983 

Fix a broken ASSUME statement. This ASSUME broke when I changed 
the structure of a table header by removing the field F 
LNATHSL_LOGNAM. Also, no Longer fill in this ‘non-existant 
field when creating a logical name table. 


TMKO001 Todd M. Katz 18-Mar-1983 
Re-write SYSSCRELNT. Add SYSSCRELNM, SYSSDELLNM, SYSSTRNLNM. 


. ¢ 6 
SYSLNM < SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 AX/VMS 4- Pece 1 SY 
04-000 DECLARATIONS reer 188s OS:8eis8 PENEMES Macro, yOK=00 oor 19, 


~SBTTL DECLARATIONS 


; MACRO LIBRARY CALLS 


Tl 
| 
1 
1 
14 
13 
° i$ SARMDEF :DEFINE ACCESS RIGHTS MASK 
18 SCADEF [DEFINE CONDITIONAL ASSEMBLY SWITCHES 
00 1 SDYNDEF SDEFINE DATA STRUCTURE TYPE CODES 
999 0 SIPLDEF SDEFINE INTERRUPT PRIORITY LEVELS 
0 1 SLNMDEF ;DEFINE LOGICAL NAME ATTRIBUTES 
0 99 ; SLNMSTRDEF [DEFINE LOGICAL NAME CTRUCTURES OFFSETS 
0 SORBDEF [DEFINE OBJECT RIGHTS BLOCK OFFSETS 
09 4 SPCBDEF :DEFINE PCB OFFSETS 
4 SPRDEF SDEFINE PROCESSOR REGISTER NUMBERS 
00 $ SPRVDEF [DEFINE PRIVILEGE BITS 
000 SPSLDEF SDEFINE PROCESSOR STATUS FIELDS 
0000 528 SSSDEF SDEFINE SYSTEM STATUS VALUES 
$03 
9000 i ; LOCAL SYMBOLS 
9000 ; ARGUMENT LIST OFFSET DEFINITIONS FOR CREATE LOGICAL NAME TABLE. 
000 .* 
00000004 0909 y CTATTR=4 sADDRESS OF TABLE ATTRIBUTES 
00000008 0000 537 CTRESNAM=8 SADDRESS OF TABLE NAME STRING DESCRIPTOR 
0000000¢ 0000 338 CTRESLEN=12 ZADDRESS OF WORD TO RECEIVE LENGTH OF TABLE NAME 
00000010 0000 539 CTQUOTA=16 SADDRESS OF TABLE QUOTA 
00000014 6000 240 CTPROT=20 SADDRESS OF PROTECTION MASK 
00000018 909 41 CTTABNAM=24 ADDRESS OF TABLE NAME STRING DESCRIPTOR 
0000001¢ 000 248 CTPARTAB=28 ‘PARENT TABLE NAME DESCRIPTOR 
00000020 900 3 CTACMODE=32 SADDRESS OF ACCESS MODE 
0000 545; 
9000 sf : ARGUMENT LIST OFFSET DEFINITIONS FOR CREATE LOGICAL NAME. 
00 48 ° 
00000004 090 rk: CNATTR=4 ZADDRESS OF ATTRIBUTES 
00600008 000 50 CNTABNAM=8 SADDRESS OF TABLE NAME STRING DESCRIPTOR 
9900000¢ 900 51 CNLOGNAM=12 SADDRESS OF LOGICAL NAME STRING DESCRIPTOR 
0000 91 0 3g NACMODE=16 TADDRESS OF ACCESS MO 
00000014 2 i CNITMLST=20 SADDRESS OF ITEM LIST 
5; 
00 28 : ARGUMENT LIST OFFSET DEFINITIONS FOR DELETE LOGICAL NAME. 
0 58° 
00000004 38 DNTABNAM=4 ZADDRESS OF TABLE NAME STRING DESCRIPTOR 
0000008 60 DNLOGNAM=8 SADDRESS OF LOGICAL NAME STRING DESCRIPTOR 
000000 $2 DNACMODE=12 TADDRESS OF ACCESS MODE 
65; 
: ‘ : ARGUMENT LIST OFFSET DEFINITIONS FOR TRANSLATE LOGICAL NAME. 
00000004 4] TRATTR=4 ZADDRESS OF TRANSLATION FLAGS 


SYSLNM 
v04-000 


0000 


00000014 
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RVICES TO MANIPULATE LOGICAL 16-SEP-1984 02:22: AX/VMS Macro V04-00 Page 1 SY 
aS Pa Tes BRT ITT ae a 

68 TRTABNAM=8 ZADDRESS OF TABLE NAME STRING DESCRIPTOR 
: TRLOGNAM=1 SADDRESS OF LOGICAL NAME STRING DESCRIPTOR 
0 TRACMODE=1 SADDRESS OF ACCESS MODE 

ft TRITMLST=2 SADDRESS OF ITEM LIST 

73; 

oh + PROTECTION MASK CONSTANTS FOR CHECKING. 

7? . 

58 READ_ACCESS = ARMSM_READ 

28 WRITE_ACCESS | = ARMSM“WRITE 

79 QUOTA-ACCESS = ARMSMTEXECUT 

; DELETE_ACCESS = ARMSM~DELETE 

: : ASSUME STATEMENTS FOR LOGICAL NAME BLOCK, LOGICAL NAME TRANSLATION, AND 
Bi > LOGICAL NAME TABLE HEADER. 

& e 

be ASSUME LNMBS$B_TYPE+1, EQ, LNMBSB_ACMODE 

8B ASSUME LNMBSBACMODE+1, £0, LNMBSL~TABLE 

89 ASSUME LNMBSL-TABLE+4, EQ, CNMBSB FLAGS 

30 ASSUME LNMBSB-FLAGS+1, | £0, LNMBST—NAME 

3 ASSUME LNMX$B_FLAGS, EQ, 0 

9 ASSUME LNMXSBIFLAGS+1, EQ. LNMX$B_INDEX 

94 ASSUME LNMX$B-INDEX+1, £0, LNMX$WTHASH 

93 ASSUME LNMX$W"HASH#2, EQ, LNMX$T-XLATION 

97 ASSUME LNMTHSB_FLAGS, EQ, 0 

98 ASSUME LNMTHSB-FLAGS+1, EQ. LNMTHSL_HASH 

99 ASSUME LNMTHSL-HASH+4, £0, LNMTHS$L-ORB 

00 ASSUME LNMTHSL~ORB+4 EQ, iNMTHSL—NAM 
01 ASSUME LNMTHSL~NAME+4 EQ, LNMTHSL~PARENT 
0¢ ASSUME LNMTHSL~PARENT?4, EQ, LNMTHSL~CH 

0 ASSUME LNMTHSL~CHI EQ, LNMTHSL~SIBLING 

04 ASSUME LNMTHSL-SIBLING+4, EQ, LNMTHSL—QT 

05 ASSUME LNMTH$L“QTABLE+4, EQ, LNMTHSL-BYTESLM 

06 ASSUME LNMTHSL~BYTESLM+4, EQ, LNMTHSL-BYTES 

88 -PSECT YFSSLNM 

10 ; 

11 : LOCAL DATA 

13 

14 LNM_HEX_TAB_LEN=4+8+8 :SIZE OF "'LNMS'' + pid + addr 

15 HEXDIGITS: 

16 -ASCII /0123456789ABCDEF/ :TABLE TO CONVERT INTEGER TO HEX DIGIT 
1 

1 


—————————————_--- - 
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SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP=1986 02:22:46 VAX/VMS Macro vOs- SY 
704-000 EXESCRELNT — CREATE LOCICALCNARECTABLEY | 'SSepaione OS :Se35 LeneMee Hac ce Mons 00, rr vo 
LSBTTL EXESCRELNT = CREATE LOGICAL NAME TABLE 


\ 
| 


+ 
; EXESCRELNT ~ CREATE LOGICAL NAME TABLE 
; THIS SERVICE PROVIDES THE CAPABILITY TO CREATE A LOGICAL NAME TABLE. 


; INPUTS: 
CTATTR(AP) = ADDRESS OF TABLE ATTRIBUTES. 
CTRESNAM(AP) = ADDRESS OF DESCRIPTOR TO RECEIVE TABLE NAME STRING. 
CTRESLEN(CAP) = ADDRESS OF WORD TO RECEIVE LENGTH OF TABLE NAME. 
CTQUOTACAP) = ADDRESS OF BYTE QUOTA FOR TABLE AND NAMES CONTAINED THERE! 
CTPROT CAP) = ADDRESS OF SOGW PROTECTION MASK. 
CTTABNAM(AP) = ADDRESS OF TABLE NAME STRING DESCRIPTOR. 
CTPARTABCAP) = ADDRESS OF PARENT TABLE NAME DESCRIPTOR. 
CTACMODE (AP) = ADDRESS OF ACCESS MODE OF LOGICAL NAME TABLE TO BE CREATED 
R4 = CURRENT PROCESS PCB ADDRESS. 


; ; OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO CREATE LOGICAL NAME TABLE ENTRY. 
RO = SSS Mee yio = TABLE NAME pera tose LOGICAL NAM 


DE. NAME LENGTH LE 
STRING BUFFER CANNOT Be WRITTEN BY CALLING ACCESS MODE. 


RO = SS$_BADPARAM = INVALID ATTRIBUTE OR ACCESS MODE SPECIFIED. 
PARENT LOGICAL NAME TABLE NAME NOT SPECIFIED. 


RO = SS$_DUPLNAM - ATTEMPT MADE TO SUPERSEDE NON~ALIASABLE 
COGICAL NAME TABLE ENTRY OF THE SAME OR AN INNER ACCESS 


RO = SS$_EXLNMQUOTA - grea SF | “or AVAILABLE IN THE 
PARENT LOGICAL NAME TABLE’S QUOTA TABLE FOR THE 
CREATION OF THE NEW LOGICAL NARE TABLE ENTRY. 


RO = SS$_INSFMEM = SUFFICIENT SYSTEM DYNAMIC MEMORY DOES NOT 
EXIST TO ALLOCATE THE NEW LOGICAL NAME TABLE ENTRY AND 
IMPLICIT RESOURCE WAIT IS NOT ENABLED. 


RO = SS$_IVLOGNAM = ZERO OR GREATER THAN MAXIMUM LENGTH 
COGICAL OR PARENT TABLE NAME STRING SPECIFIED. 


RO = SS$_IVLOGTAB = INVALID PARENT TABLE NAME SPECIFIED OR 
INVALID LOGICAL NAME TABLE NAME SPECIFIED. 


RO = SS$_NOLOGTAB - PARENT TABLE SPECIFIED DOES NOT EXIST. 


RO = SS$_NOPRIV = PROCESS DOES NOT HAVE eee TO CREATE 
SPECIFIED LOGICAL NAME TABLE ENT 


RO = SS$_PARENT_DEL - INSERTION OF NEW LOGICAL NAME TABLE ENTRY 


SSSSSSSSSSSSSSSSSSSSSSSOSSSSsssosSosssosssossososssossosossossosossosao mm 
a et ae a et a ed ts a a a ds as 1 —) 4s ss a a a 1 78 
SOOOSOSOSOOOSCOSOSSCOSOSSOCOSSSOSSCOOCOOOOOOOOOOOSOOOOOOOOOOOOOO 
SANNA A AAA AAA AA MAMA BE EE BEE WWW AAALAC ORPORFURIPURUNUIRD Oe 
ANEW OODNAU EWN SO OD NAME WIN O ODNAUE WN HO ODNAUEWN OODNAUEWNHO WO 
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SS$_SUPERSEDE = NORMAL COMPLETION 
ENTRY SUPERSEDED A PREVIOUSLY EX STING ENTRY AT THE SAME 


I 
OR epee MODE IN THE SPECIFIED PARENT LOGICAL 


F 

SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 02:22:46 VAX/VMS Macro V04-00 P 

v04-000 EXESCRELNT = CREATE LOGICAL NAME TABLE mi iat Yi §¢:2:08 SYS.SRCJSYSLNM.MAR; 1 af 
1 ; WOULD HAVE RESULTED IN THE DELETION OF A (GRANDPARENT 
LOGICAL NAME TABLE ENTRY. 
1 : RO = SS$_RESULTOVF = BUFFER NOT LARGE ENOUGH TO CONTAIN NAME 
; OF NEW LOGICAL NAME TABLE. 
1 : RO = SS$_TOOMANYLNM = TOO MANY LEVELS OF RECURSION IN SEARCH 
; FOR PARENT TABLE. 
; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
1 : RO = SS$_LNMCREATED = NORMAL COMPLETION, NEW LOGICAL NAME T 
} ; ENTRY CREATED. Pi ae 
1 : RO = SS$_NORMAL = NORMAL COMPLETION, LNMSV_CREATE_IF SET AND 
: THE LOGICAL NAME TABLE ENTRY ALREADY EXISTED. 
3 RO = NEW LOGICAL NAME TABLE 
1 : 
! $ NAME 
> SIDE EFFECTS: 
1 : THIS ROUTINE EXITS AT IPL 2, AND MUST CONTINUE TO DO SO, BECAUSE 
; IT IS CALLED AT SYSTEM INITIALIZATION TIME. 
fee 
0 .PSECT YSEXEPAGED 

OFFC 000 “ENTRY EXESCRELNT, “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
OO1F' 31 0 W EXECRELNT 
0000001 .PSECT YFSSLNM 
01 “ENABLE LSB 
50 «(OC 3¢ 4 900$: MOVZWL #SS$_ACCVIO,RO ZACCESS VIOLATION 
50 14 3¢ 4 910$: MOVZWL #SS$_BADPARAM,RO ;BAD SYSTEM SERVICE PARAMETER 
50 0124 BF 3¢ 3 0s: MOVZUL #SS$_INSFMEM,RO :NO PRIVILEGE TO CREATE TABLE ENTRY 
50 015C 8F 3¢ 1 940$: MOVZUL #SS$_IVLOGTAB,RO yINVALID LOGICAL NAME TABLE NAME 


VALIDATE AND COPY PARAMETERS AS NECESSARY. REGISTER ASSIGNMENT FOR THE 
PARAMETERS ARE AS FOLLOWS: 


R5 = ACCESS MODE. 

R6 = PROTECTION MASK. 

R? = ATTRIBUTE BITS. 

R8 = ADDRESS OF PROBED AND COPIED PARENT TABLE NAME DESCRIPTOR. 
RG = ADDRESS OF PROBED AND COPIED TABLE NAME DESCRIPTOR. 

R10 = ADDRESS OF PROBED AND COPIED LOGICAL NAME DESCRIPTOR. 

R11 = ADDRESS OF WORD TO RECEIVE TABLE NAME LENGTH. 
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0 


AX/VMS Macro Vv04-00 
SYS.SRCISYSLNM.MAR; 1 


4 4+ Sy OF won bs LENGTH WORD 
H IF NOT PRESEN 


‘ene CK WRITE ACCESS TO WORD 


: ADDRESS OF PROTECTION MASK WORD 
[DEFAULT THE PROTECTION TO S:RWED O:RWED 


+4 ee tae ACCESS TO WORD 
GET VALUE 


sADDRESS OF TABLE -_ DESCRIPTOR 
BRANCH a NOT PRESENT 


;SET UP CALL 

: PROBE DESCRIPTOR AND WRITE PROBE BUFFER 
i CAN'T Teetee BUFFER * READ DESCRIPTOR 
;SAVE TABLE NAME DESCRIPTOR 

ADDRESS OF TABLE NAME DESCRIPTOR 


TABLE ATTRIBUTES 

BRANCH IF NOT PRESENT 

+s READ ACCESS TO VALUE 
:GET VALUE 

sCONFINE TO PROCESS 
;SUPERCEDE VS. MAP 

:D0 NOT ALLOW ALIASES 


INVALID TABLE ATTRIBUTES 


; ESS OF T NAME DESCRIPTOR 
BRANCH IF NOT PRESENT 
CHECK ACCESS TO DESCRIPTOR 
RETRIEVE TABLE NAME DESCRIPTOR 
ZERO HIGH ORDER WORD OF LENGTH 
ERROR IF ZERO LENGTH TABLE 
CHECK SIZE OF TABLE NAME STRING? 
sERROR IF SPECIFIED SIZE See MAX IMUM 
CHECK _ACCESS TO TABLE NAME BUFFER 
AVE TABLE NAME DESCRIPT 


7s OR 
ADDRESS OF TABLE NAME DESCRIPTOR 
s ADDRESS * peer Lee DESCRIPTOR 


ERROR IF NOT PRESENT 
i CHE CK ACCESS TO nie 


er perc ise AC 
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SYSLNM = SYSTEM SERVICES TO MANIPULATE L861 fa 16-SEP-1984 02:22: 
v04-000 Exes EREUNT - CREATE LOGICAL NAME TABLE eet 7 9¢:82:28 
EXECRELNT: 
5B OO A ROVE FTRESLEN(AP) , wR11 
5 - IFNOWRT #2,(R11),900$ 
5614 aC : mov CIPROT (AP) .R6 
56 FFOO oF i OVZWL #*XFFOO,R6 
743 15$: IFNORD #2, (R6),900$ 
5666 oe MOVZWL (R6),R6 
59 «(08 iS 74g 208: mOvL aed »RY 
51. 5 148 MOVL 
00000009" F £49 JB CER spnoev, DSC 
7 1 fat MOV R1,=(SP) 
5 E i ee MOVL = SP.R9 
57 04 AC 134 ; mOVL TATTR(AP) ,R7 
75 IFNORD #4, (R7),900$ 
57 67 Fas OVL  (R?),R7 
57 FEFFFFFC 8F 138 BITL ae com tl 
760 LNMSM-CREATE_IF! = 
9] UNAS NO_ALIAS - 
9E 768 BNEQ 3108 
165 <a ASSUME LNMSC_TABNAMLEN,LE,512 
SA 18 aC ror : mOVL CTTABNAN(AP) ,R10 
769 IFNORD #8,(R10),900$ 
51 A 770 mova = (R10), R1 
1 51 771 MOVZWL R1,R1 
94 178 BEQL ©: 940$ 
1F 31 173 CHP R1, #LNMSC_TABNAMLEN 
775 IFNORD R1,(R2),44$ 
7E O51 176 va RI (SPS 
SA OSE Mi sos MOVL  SP.R1 
58 IC ac 19 ] mOVL CTPARTAB(AP) ,R8 
781 1FNORD (RB) 448 
50 $8 7 : MOVAQ (R&),R 
FFS53° 7 BSBW LNMSPROBER 
1D : 784 BLBC ‘ 
43 785 MOVO  R1.-(SP) 
5 E f 6 MOVL  SP.R8 
50 20 AC f 8 mOVL STACHODE (AP) .RO 
790 IFNORD #1,(RO),44$ 


T 
cE 
ANCH IF NOT PRES 
;CHECK READ ACCESS 


H 
SYSTEM SERVICES 0, ManTouLaTe LOciENL 1g-sEP-t9Rs 09:22:46 YAK/VNE macro vO4-00 Page 15. 


50 9A mOVZBL (RO) RO :GET VALUE 
1 cn CHL fh L$C_USER,RO CHECK FOR VALID ACCESS MODE 
FFG f 438: BRW INVALID ACCESS MODE 
FF4D 31 43$: BRW SRETURN 
FF3D 31 448: BRW TACCESS VIOLATION 
; IF THE ACCESS MODE OF THE NEW LOGICAL NAME TABLE WAS EXPLICITELY SPECIFIED 
; AND THE CALLER HAS THE SYSNAM PRIVILEGE, THEN THE NEW LOGICAL NAME TABLE IS 
; CREATED WITH THE SPECIFIED ACCESS MODE. OTHERWISE, THE ACCESS MODE OF THE 
: CALLER 1s MAXIMIZED WITH ANY EXPLICTELY SPECIFIED ACCESS MODE AND USED TO 
; CREATE THE NEW LOGICAL NAME TABLE. 
45$: IFPRIV SYSNAM,60$ :SYSNAM REQUIRED TO SPECIFY INNER MODE 
0000 ‘gf 16 50$: JSB GAEKE SHAXACMODE SMAXIMIZE SPECIFIED MODE WITH CALLER'S 
ogo 0 oO 60S: [MODE TO DETERMINE MODE OF NEW TABLE 


RAISE IPL TO AST DELIVERY LEVEL SO THAT THERE ARE NO INTERRUPTIONS WHILE 
THE LOGICAL NAME TABLE ENTRY IS BEING CREATED. 


3 
0 SETIPL S*#IPL$_ASTDEL ;RAISE TO AST DELIVERY LEVEL 
54 OD 0 PUSHL R4 SSAVE THE PCB ADDRESS 

0 ; 

0 3 ALLOCATE A LOGICAL NAME BLOCK FOR THE NEW LOGICAL NAME TABLE ENTRY. ASSUME 

00 ; THAT THE NEW LOGICAL NAME TABLE WILL BE SHAREABLE, SO ALLOCATE THE SPACE 

0 : FROM SYSTEM PAGED POOL. UNTIL THE PARENT LOGICAL TABLE BLOCK IS LOCATED, 

00 : WHETHER THE NEW LOGICAL NAME TABLE WILL BE IN SYSTEM POOL AND SH AREABLE 

0 ; OR IN P1 SPACE AND NOT SHAREABLE IS NOT KNOWN. HOWEVER, THE LOGICAL NAME 

0 ; MUTEX MUST BE LOCKED BEFORE A SEARCH CAN BE MADE FOR THE PARENT LOGICAL NAME 

9 ; TABLE, ONCE THE MUTEX IS LOCKED, SYSTEM POOL CAN NOT ALTHOUGH P1 POOL CAN 
+ BE ALLOCATED. THEREFORE, THE NEW LOGICAL NAME TABLE ENTRY IS ASSUMED TO BE 

0 : SHAREABLE, AND IF THE PARENT T TABLE 1S FOUND TO RESIDE IN SYSTEM THEN THE 

0 : SYSTEM POOL ALLOCATED FORT HE NEW ENTRY IS DEALLOCATED, AND PROCESSCPRIVATE 

9 : POOL IS ALLOCATED IN ITS PLACE. 

0 

0 
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NADAL WO OO NIA NE WIN SO O08 NOU EWI 9 OD NA NE WIN 0 OD NONE WP  O ODN UNE Ur 


SA +4 TSTL R10 :LOGICAL NAME EXPLICITELY SPECIFIED? 
05s BEQL 70$ 7NO = GO GET FIXED SIZE TO USE 
51 6A b0 MOVL R10),R1 YES = LOGICAL NAME SIZE IS USED AS 
3 BRB 3 SIZE OF LNMB NAME 
51 14 00 70$: MOVL #LNM_HEX_TAB_LEN,R1 FIXED SIZE QUANTITY 
co 75$ ADDL2 #<- LENGTH OF ENTRY = 
LNMBST_NAME+1+¢ - ;SIZE OF LNMB + NAME SIZE COUNT FIELD 
LNMAXST”XLATION¢1+ - sSIZE OF LNMX # HEADER SIZE COUNT FIELD 
LNMTHSR_LENGTH+ - sSIZE OF LNATH 
ORES. LENGTHS - aoe en BYTE 
*x07 - 3; (ROUND LNMB TO Q NEXT QUADWORD BOUNDARY) 
51 C oF > RI 3SIZE OF LNMB NAM 
of 7 #2CA BICL2 #*x07,R1 TRUNCATE LNMB 3} ‘ 4° QUADWORD MULTIPLE 
00000000'GF 16 JSB G*EXES$ALOPAGED ALLOCATE THE LOGICAL NAME TABLE ENTRY 


S< 


SYSLNM = SYSTEM SERVICES TO MANIPULATE tbci fan 16-SEP-1984 02:22: AX/VMS Macro V04-00 Page 1 SY 
502 +000 EXESERECNY - RES rE LOGICAL NAME TABLE ot et 9¢:82:38 toys. SRCJSYSLNM.MAR; 1 ” (%) vO 
03 50 §8 1 4 BL8S =-_—«aRO, 778 HIE § SUFFICIENT MEMORY 
FOF 1 4 BRW 926$ ZOTHERUISE RETUPN ERROR 
08 a2 «51~=«BO ; 77$ MOVW R1,LNMBSW_SIZE(R2) BLOCK SIZE WITHIN THE BLOCK 
10D ; 
10D > WRITE LOCK THE LOGICAL NAME MUTEX AND THEN POSIT 10N TO THE PARENT LOGICAL 
10D 4 ; NAME TABLE. DEALLOCATE THE NEW LNMB IF UNABLE TO POSITION TO THE PARENT 
p ; TABLE ENTRY. 
10D . 
52 p 10D 38 PUSHL R2 SAVE LOGICAL NAME BLOCK ADDRESS 
reg ' p 10F 85 BSBW  LNMSLOCKW SLOCK TABLES FOR WRITING 
1 p 1 60 MOVL TACCESS MODE 
6 p 11 61 MOVG (RB), R2 STABLE NAME DESCRIPTOR 
FEES* 30 011 6¢ BSBW LNMSFIRSTTAB SSEARCH FOR SPECIFIED PARENT TABLE 
4 8600 0118 86 POPL TRESTORE LOGICAL NAME BLOCK ADDRESS 
03 50 5 IE 64 BLBS RO, 808 [BRANCH ON FAILURE 
1246 86 
124 $9 ; 
4 68 : IF THE PARENT LOGICAL NAME TABLE IS SHAREABLE THEN: 
124 3 : 1. MARK THE NEW TABLE AS SHAREABLE. 
or 4 871 : 2. MAKE SURE THE NEW TABLE IS NO KED AS CONFINED. 
124 rg : 3. MAKE SURE THE CALLER HAS QUOTA UACCESS TO THE PARENT LOGICAL NAME TABLE. 
124 873 : 3. MAKE SURE THAT THE CALLER HAS WRITE ACCESS To THE SYSTEM DIRECTORY TABLE 
126 874: PROVIDED THE USER IS SPECIFYING THE NAME OF THE SHAREABLE TABLE AND NOT 
: 2 7a 3 LETTING VMS DEFAULT NAME IT. 
124 877° 
00 €1 0124 A: 80$: BBC #LUMT HSV SHAREABLE :BRANCH IF THE PARENT TABLE ENTRY IS IN 
3B 61 01 6 7 NMTHSB. FLAGS(R1) , 90$ :PROCESS-PRIVATE SPA 
57 02 CA 01 80 BICL2 rh NMSM_CONFINE,R7_ TSHAREABLE TABLES CAN'T BE CONFINED 
00 57 10 «€3 8 1 BBCS § #LNMSV"SHAREABLE,R7,83$ :MARK NEW TABLE AS SHAREABLE 
52 04 oA ; ass 83S: MOVZBL #QUOTA_ACCESS,R2 CODE F FOR OR ACCESS CHECK 
54 04 AE 20 134 BBS MOVL  4(SP),R4 REST oR E PCB 
FECS® 138 6 BSBW LNMSCHECK_PROT CHECK THE PROTECTION 
54 Hi D0 1 MOVL  (SP)+,R4 REST 
03 30 &8 i i BLBS RO 858 tEXIT on FAILURE 
A 05 144 891 85$: -TSTL Ri WAS A NAME SPECIFIED FOR THE NEW TABLE 
at i 36 BEQL $ ‘BRANCH IF ONE WASN 
A 014 4 MOVZBL #WRIT ACCESS, R2 3CODE FOR ACCESS CHECK 
a A ee ai a SA 
5 6 Al 151 3 MOVL NMBSL_TABLE(R1).R1 TRETRIEVE SYSTEM DIRECTORY TABLE HEADER 
s FAT. BB Ries ies eee CCWABCHIECK. PROT zRESTOR FAE PROTECTION 
12 BA 015¢c 0 POPR #*M<R1,.R45 SRESTORE LNMB AND PARENT TABLE HEADER 
70 3 F9 1 F 1 BLBC RO 105$ TEXIT ON FAILURE 
1 16 ; BRB 106$ 
183 904 ; 


= SYSTEM SERVICES TO MANIPULATE Beit 19-SEP=1 AX/VMS Macro V04-00 Page 17 
EXESCREUNT = CREATE LOGICAL WARE TaaLE’ | ScSEp-ione OSicsee PANAMES Macro, vOE=00 - ib 
; IF THE PARENT TABLE 1s DISCOVERED TO Ex TO EXIST IN PROCESS-PRIVATE SPACE, THEN 
; THIS IS ALSO WHERE THE NEW te pane: statis "etree e 60. ya OCATE 
THE sv TEM SPACE LNMB, AND ALLOCATE A Sure eATLt SIZED BLOCK FROM P 
51 oD 11 90$: PUSHL RI ;SAVE ADDRESS OF PARENT'S TABLE HEADER 
ze 08 AG 4 1 MOVZWL LNMBSW_SIZE(R4),-(SP) :SAVE SIZE OF LNMB AND COMPUTE size 
6— 00 099 Ba - 1 SUBL #ORBSK “LENGTH, (§P) [OF BLOCK TO BE ALLOCATED FROM P1 POOL 
4 : 1 MOVL SADDRESS OF SYSTEM SPAC LNMB 
FEBA’ BSBW UNASDELBLK SDEALLOCATE SYSTEM SPACE LNMB 
1 B8EDO 1 POPL RI sSIZE OF STORAGE TO ALLOCATE 
00000090" ¢F 16 31 JSB G*EXESALOPIPROC SALLOCATE NEW LNMB FROM Pl SPACE 
08 30 1 BLBS [BRANCH IF SUCCESSFUL 
6E 0124 BF 3¢ 9 MOVZWL. ass. INSFMEM, (SP) i OTHERWISE RETURN INSUFFICIENT MEMORY 
0186 «(31 3 BRW TERROR AFTER RELEASING MUTEX 
2 00 923 95$:  MOVL mith ZADDRESS OF NEW LNMB 
08 A4 1 8B 9 MOVW R1,LNMBSW_SIZE(R4) ;SAVE SIZE WITHIN BLOCK 
1 8ED0 9 POPL RI SADDRESS OF PARENT'S TABLE HEADER 
52. 09 Al D0 9 MOVL — LNMTHSL_NAME(R1),R2 ZADDRESS OF PARENT'S LNMB 
01. €1 9 BBC BLN MBSV~ CONF I NE 5 SIS THE PARENT ENTRY MARKED CONF INE? 
04 10 A2 9 LNMBS$B_FLAGS(R2),100$  ;BRANCH 


IF NOT 
BBCS  #LNMSVTCONFINE,R?,100$ :MAKE SURE NEW ENTRY IS IF SO 
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0057 01 €3 3 
9 ; 
? ; PERFORM QUOTA CHECKS. TWO SUCH QUOTA CHECKS ARE MADE: 
934 2 1. THE CONTAINING TABLE (SYSTEM OR PROCESS DIRECTORY TABLE) IS CHECKED TO 
935 ; MAKE SURE ITH AS SUFFICIENT QUOTA TO CONTAIN THE NEW LOGICAL NAME iat E 
936: ENTRY. NOTE THAT AN ASSUMPTION IS nave THAT THE DIRECTORY TABLES AR 
| : THEIR OWN QUOTA HOLDERS. 
9 2. THE PARENT LOGICAL NAME TABLE'S QUOTA HOLDER IS CHECKED TO Q MAKE s SURE IT HAS 
940 : SUFFICIENT QUOTA FOR THE QUOTA WHICH WILL BE DEDUCTED FROM IT AND ALLOCATED 
34 ; SPECIFICALLY TO THE NEW TABLE. 
94 
52 09 Al 00 944 100$: MOVL LNMTHSL NAME (RY) .RZ ;RETRIEVE PARENT'S TABLE HEADER ADDRESS 
38 o¢ A2 p 34 MOVL LNMBSL_TABLE(R2).R SRETRIEVE CONTAINING TABLE'S DRESS 
5 BAG 3¢ 4 MOVZ2WL LNMBSW™ sire ines RO :SIZE OF NEW TABLE ENTRY 
21 a2 30 D1 4 CMPL RO LNATHSL_6 YTES(R2) 31S THERE SUFFICIENT 
1 1A 4 BGTRU $ [NO = DEALLOCATE LNMB aN * RETURN ERROR 
58 10 ac 09 5 MOVL CTQUOTACAP) .RB ;RETRIEVE NEW TABLE'S QUOTA 
20 «1 3 BEQL 10 [SKIP SECOND QUOTA CHECK IF NOT PRESENT 
IFNORD #4, (R8),107$ [CHECK READ ACCESS TO VALUE 
58 68 00 mOVL (RB) , RB :GET VALUE 
52 19 Al v0 101$:  MOVL LNATHSL QTABLE(R1),R2  ;RETRIEVE PARENT QUOTA HOLDER'S ADDRESS 
21 a2 58 =D CMPL NMTASL_BYTES(R ay) [1S THERE SUFFICIENT QUOTA? 
gp 1B BLEGU N05 [YES = THEN CONTINUE 
50 2246 F 3 1038: MOVZWL ss _EXLNMQUOTA,RO [NO = THEN DEALLOCATE LNMB AND RETURN 
FC. O31 % 105$: BRW 160$ : EXCEEDED QUOTA ERROR 
50 Oc 3C 107$:  MOVZWL #SS$_ACCVIO,RO :NO ACCESS 


K 
= SYSTEM SERVICES TO MANIPULATE Sci fat 16-SEP-1984 AX/VMS Macro v04=00, Page 1 
EXESCRECNT © CREATE LOGICAL NAME TABLE SaSEpatone Oo:Segh PANEMES Macro vOE=00 oe i, 
8 01D j BRB 105$ ZEXIT 
We ae 
1D : : FILL_IN THE LNMB PORTION OF THE LOGICAL NAME BLOCK FOR THE NEW LOGICAL NAME 
1p $ ; TABLE ENTRY. 
109 ; REGISTER USAGE IS AS FOLLOWS: 
1D : Rl = ADDRESS OF TABLE HEADER FOR PARENT LOGICAL NAME TABLE. 
1D 71: R3 = SIZE OF NEW LOGICAL NAME TABL "§ 
1D 72: R4 = ADDRESS OF LOGICAL NAME BLOCK FOR NEW LOGICAL NAME TABLE. 
1D 73; RS = ACCESS MODE. 
1D 7%: R6 = ADDRESS OF PROTECTION MASK. 
1D 75: R7? = ATTRIBUTE BITS. 
109 id: ; Rs = QUOTA. 
109 «977: RJ = ADDRESS OF PROBED AND COPIED TABLE NAME DESCRIPTOR. 
1D9 A : R10 = ADDRESS OF PROBED AND COPIED LOGICAL NAME DESCRIPTOR. 
109 979 : R11 = ADDRESS OF WORD TO RECEIVE TABLE NAME LENGTH. 
109 (981° 
50 OA AG 9 19 «9 : 110$:  MOVAB LNB SB =TYPE(RA) RO :POSITION TO BLOCK TYPE 
80 40 er 1D 9 MOVB DYN SCOLNA [SET DATA STRUCTURE TYPE 
80 90 161 ; 4 MOVB :SET OWNER ACCESS MODE 
52 09 Al DO O1E4 $86 MOVL = LNMTHSL_NAME(R1),R2 yADDRESS OF PARENT'S LOGICAL NAME BLOCK 
BO OC A2 00 168 3 MOVL §§ LNMBSL_TABLE(R2).(RO)+ :STORE DIRECTORY TABLE HEADER ADDRESS 
80 08 57 289 IE $89 BISB3 R7,#LNMBSM_TABLE,(RO)+ ;STORE NAME ATTRIBUTES 
1FO 991 ; 
1F 99¢ + IF THE CALLER HAS SPECIFIED A LOGICAL NAME STRING THEN THAT STRING BECOMES 
1F0 993 5 THE NAME OF THE LNMB FOR THE NEW LOGICAL NAME TABLE ENTRY BY MOVING IT INTO 
1F0 994 ; THE LOGICAL NAME BLOCK. OR THERWI SES THE UNIQUE NAME OF THE LNMB IS A 
IF 396 3 CONSTRUCTED QUANTA TY OF FIXED (7 BYTES) SIZE. 
170 («997° 
Sa 05 1F 998 TSTL R10 ;LOGICAL NAME STRING SPECIFIED? 
A 13 O12 99 BEQL 1208 0 -6R ANCH TO CONSTRUCT UNIQUE NAME 
0 90 O1F4 1000 MOVE (R10), (RO)+ STORE L LENGTH OF NAME 
E 4 2D 167 01 nova R4,=(SP) SSAVE NEEDED REGISTERS OVER MOVTUC 
00 BA 6A oF 1FC 1 g MOVTUC (R10),a4(R10),#0,- ;CHECK FOR PROPER TABLE NAME SYNTAX AND 
09008000" EF 1 1004 EXESLNM SYNTAK_ DAT,- THE SAME TIME MOVE THE TABLE aliAne 
60 1005 (RIOD, CR ) INTO THE LOGICAL NAME | T 
1 1 BVS 115 *BRANC TABLE NAME HAS ttVALID. CHARS 
50 09 A 1 MOVL RS, RO [POSITION PAST LNMB 
1 ED 1 : POPL RI SRESTORE SAVED REGISTERS 
54 é D 1 mova ($P)+ RA 
46011 19 BRB 130$ ;BRANCH AROUND UNIQUE NAME CONSTRUCTION 
32 15 1 I 115$: POPR #*M<R1,R4,R5> sRESTORE REGISTERS 
50 015c BF 3c «(0217 «+101 MOVZWL sss. IVLOGTAB, RO TINVALID TABLE NAME STRING SPECIFIED 
Bs (11 IC 1 BRB :S$0 GO RETURN THE APPROPRIATE ERROR 
80 14 1 1 120$:  MOVB a HEX_TAB_LEN, (RO) + : STORE LENGTH OF NAME 
80 244D464¢ oF D 101 MOVL wal NAS7 (RO) + ‘STORE BEGINNING 0 
5 Cc OD 8 1018 MOVL 4,k3 :STARTING NIBBLE SOSTTION 
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SYSLNM - SYSTEM SERVICES TO MANIPULATE cher far 16-SEP=1 AX/VMS Macro V04-00 Page 19 SY’ 
v04-000 EXESERECNT 8 VETER TE LOGICAL NAME TABLE g- Ep. 138 8¢: gf: 28 SYS.SRCJSYSLNM.MAR; 1 * ih VO 
oe Os F 1019 125$:  ExTZV . ZEXTRACT HEX DIGIT 
80 Foce crag § 1 HM pies STORE ASCII EQUIVALENT 
f 1 SUBL &#4,R tADJUST POSIT ON TO SUCCEEDING NIBBLE 
FO 1 BGEG SITERATE OVER 8 DIGITS 
54 OD 1 PUSHL [SAVE ADDR OF LNMB 
54 04 AE D D 1 MOVL [GET PCB ADDR 
4 AA OD 41 1025 MOVL oe EPID, R4 *GET PID 
53 1¢ «OD 45 1 : ROVE TSTARTING NIBBLE POSITION 
5 fF 48 1 126$:  EXTZV SEXTRACT HEX DIGIT 
80 FDAE cr4 4p 1 : MOVB t tiehatac, (RO)+ [STORE ASCII EQUIVALENT 
53 OO ‘ 1 SUBL SADJUST POSITION TO SUCCEEDING NIBBLE 
FO : 1 p BGEG 126$ SITERATE OVER 8 DIGITS 
54 BE OD 8 MOVL  (SP)+,R4 SRESTORE LNMB ADDR 
35 1 3 : FILL IN THE LNMX PORTION OF THE LOGICAL NAME BLOCK FOR THE NEW LOGICAL NAME 
B 1034 ; TABLE ENTRY. FOR LOGICAL NAME TABLES THE SOLE TRANSLATION CONSISTS OF THE 
28 : i 3; TABLE HEADER. 
sa 1 ‘ 
0 02 90 0258 1 ’ 130$: MOVB  $#LNMXSM_TERMINAL, (RO)+ : STORE TRANSLATION ATTRIBUTES 
80 82 8F 90 O25—€ 1 MOVB ss #LN mxSC “TABLE, (RO)+ TSTORE TRANSLATION INDEX (SPECIAL) 
80 B4 0262 1040 CLRW SINITIALIZE HASH CODE LOCATION TO 0 
80 25 90 64 i MOVB ALNATHSK _LENGTH,(RO)+ STORE LENGTH OF TABLE LEADER 
67 1043; 
0 67 1044 ; FILL_IN THE LNMTH PORTION OF THE LOGICAL NAME BLOCK FOR THE NEW LOGICAL NAME 
67 1045 ; TABLE ENTRY. THE TABLE HEADER OF THE NEW ENTRY CONSTIUTES THE SOLE 
6 46 ; TRANSLATION OF THE NEW LOGICAL NAME TABLE ENTRY. 
67 19¢ ; 
52 50 pO 0267 1 rk MOVL i SAVE ADDRESS OF TABLE HEADER 
53 57 10 9C 026A 1050 ROTL ith in R3 ABLE ATTRIBUTES TO LOW BYTE OF R3 
80 53 90 oF 31 MOVE = R23, CROS+ STORE TABLE HEADER ATTRIBUTES 
80 01A1 00 4 38 MOVL §LNMTHSL_HASH(R1),(RO)+ ;HASH TABLE ADDRESS IS SAME AS PARENTS 
80 04 73 1055 CLRL = (ROD + :ZERO OBJECT RIGHTS BLOCK ADDR FOR NOW 
80 4 i 77 1 36 MOVAB (R4), (RO) SSTORE CONTAINING LNMB BLOCK ADDRESS 
0 51 p 7A 105 MOVL  R1,(RO)+ TSTORE PARENT TABLE HEADER ADDRESS 
0 ?7C 027d 1 38 CLRO = (RO) + SSTORE CHILD TABLE HEADER ADDRESS 
i 9 [STORE SIBLING TABLE HEADER ADDRESS 
80 19A1 D 7F 1061 MOVL §LNMTHSL_QTABLE(R1),(RO)+;ASSUME QUOTA HOLDER 1S SAME AS PARENTS 
60 p 1 ‘ MOVL  RB,(RO)™ > STORE TABL E QUOTA 
9 1 Bea. 4 =-—«a3:345$ :BRANCH IF POOLE A 
19 a2 ‘ D 1064 MOVL  R2,LNMTHSL gOTABLE(R2) NEW ENTRY IS A QUOTA TABLE 
80 80 D : 135$: movL  (RO)+,(RO)F TSTORE QUOTA BYTES REMAINING (= QUOTA) 
4 : 
:o 68 > FILL IN THE NEXT LNX PORTION OF THE LOGICAL NAME BLOCK FOR THE NEW LOGICAL 
F 1 : : NAME TABLE ENTRY. THE LAST TRANSLATION BLOCK CONSISTS SOLELY vo A FLAGS 
F 29 ; FIELD, AND IS MARKED WITHIN THIS FLAGS FIELD AS THE LAST 
F 1072 ° 
80 04 90 : 78 MOVB = #LNMXSM_XEND, (RO) + ;STORE END FLAG 
92 1075; 
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= SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 AX/VMS Macro v4=00, Page 
EXESCRELNT = CREATE LOGICAL NAME TABLE §-S6F =}382 88: gf: 8 YOYS SRCISYSUNM’ MAR; 1 ° 2) 
76 ; INITIALIZE THE OBJECT RIGHTS BLOCK WHICH EXISTS FOR ALL SHAREABLE LOGICAL NAME 
77 ; TABLES. PROCESS-PRIVATE LOGICAL NAME TABLES DO NOT REQUIRE SUCH A ORB BECAUSE 
f ; BECAUSE PROTECTION CHECKING IS NOT REQUIRED, AND IS NEVER PERFORMED ON THEM. 
e1 BBC #LNMTHSV SHAREABLE 71S PARENT LOGICAL NAME TABLE SHAREABLE? 
NMTHSB rAGS(R ),137$ IF NOT, SKIP INITIALIZATION 
30 BSBW LHS NIT. SINITIALIZE TABLE'S OBJECT RIGHTS RBLOCK 
dO 137$:  MOVL [SAVE TABLE HEADER ADDRESS 
3 SET THE TEMPORARY BIT LNMBSV NODELETE IN THE FLAGS BYTE OF THE LNMB BLOCK OF 
: THE NEW LOGICAL NAME TABLE ERTRY'S PARENT, GRANDPARENT ETC... THIS WILL 
: PREVENT THE NEW ENTRY FROM BEING INSERTED IF ITS INSERTION WOULD RESULT IN 
: THE DELETION OF ANY LOGICAL LE ENTRY IN ITS DIRECT LINE OF DESCENT; 
; : AND THUS, THE ODELETION OF Ts MOARENT TABLE. 
9 
£0 94 140$: BBS #LNMTHSV_DIRECTORY,- : SYSTEM/PROCESS DIRECTORY TABLE? 
09 LNMTHS$B FLAGS (RT) {50$ :YES = GO INSERT NEW TABLE ENTR 
DO 09 MOVL NMTHSL NAME (R1) ,R2 SADDRESS OF PARENT'S LNMB BL OCK 
88 09 BISB2 #LNMBSM~ NODELETE:= ‘SET THE TEMPORARY BIT BLOCKING DELETION 
9 LNMB$B_FLAGS(R2) 30F THIS LOGICAL NAME TABLE ENTRY 
DO 09 MOVL = LNMTHSC  PARENTCR1) ,R1 [NO = RETRIEVE PARENT'S TABLE HEADER 
11 0 BRB 140$ : ADDRESS AND CONTINUE 


T THIS POINT att wht wit BEEN MADE, AND THE TABLE STRUCTURES oer A * 
BE MODIFIED FOR THE FIRST TIME. INSERT THE NEW LOGICAL NAME TABLE ENT 

THEN CLEAR THE TEMPORARY DO NOT DELETE BIT, LNMBSV -NODELETE REGARDLESS oF NTHE 
OUTCOME OF THE INSERTION. 


THIS INSERTION MAY TAKE ONE OF THREE FORMS: 


1. by NEW pete NAME ae ENTRY MAYBE INSERTED AS A NEW LOGICAL NAME 
TABLE. FOR THIS CASE TO OCCUR THE FOLLOWING CONDITIONS MUST HOLD TRUE. 


G LOGICAL NAME TABLE ENTRY IN THE SAME DIRECTORY 
WITH THE SAME NAME AND ACCESS MODE. 


ING L 
M) WIT 
ING LOGICAL NAME TABLE ENTRY IN THE SAME DIRECTORY 
Ot THE SAME NAME AND AN INNER ACCESS MODE THAT 
2. THE LOGICAL NAME TABLE ENTRY MAYBE ‘'MAPPED'’ INTO AN EXISTING LOGICAL NAME 
TABLE ENTRY. FOR THIS CASE TO OCCUR THE FOLLOWING CONDITIONS MUST BE MET. 


A. THE LNMSV_CREATE_IF BIT MUST HAVE BEEN SET IN THE ATTRIBUTES FIELD. 


B. THERE MUST EXIST A LOGICAL NAME TABLE ENTRY WITH THE SAME NAME AND 
ACCESS MODE WITHIN THE SAME DIRECTORY (PROCESS OR SYSTEM). 


THE LOGICAL NAME TABLE ENTRY MAYBE IN ED SUPenSeD INS AN dey ENTRY 
IN THE SAME DIRECTORY (PROCESS OR SYS AM A 

MODE. THE OLD LOGICAL NAME TABLE ENTR 

OF LO uc. NAMES AND LOGICAL NAME TAB 
COURSE, THAT THE OLD ENTRY WAS FOR A 
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- P=] AX/VMS Macro v04-00 Page 21 SY 
SHSLNm, = SYSTEM SERVICES, JO mawrpucate LOcitar 1g-sep-t9gs 09:22:46 yaxums nacro, vo4-00 a1; {8 
6 AE 1} ; ; WHICH MUST BE MET FOR THIS CASE TO OCCUR ARE: 
) ne i ‘ : A. THE LNMSV_ CREATE_IF BIT MUST NOT HAVE BEEN SET IN THE ATTRIBUTES FIELD. 
: T A LOGICAL NAME TABLE ENTRY WITH THE SAME NAME AND 
ry 1} 3 : o Hed Py SURAT Ee tae SAME DIRECTORY (PROCESS OR SYSTEM). 
AE 11 : 
: R 3 INSERTION IS PERFORMED. AND THE NEW LOGICAL NAME TABLE ENTRY 
AE yey : Aree cot ati te x [esee THEN ANY NAME TABLE reat hae INT ¢ 
AE 1142 ; DIRECTORY (PROCESS OR SYSTEM) WITH i HE Ae Ne NAME BUT AT AN ovTER ACCESS MODE 
AE 1108 : ARE DELETED ALONG WITH THEIR HIERARCHY OF LOGICAL UAnes AND LOGICAL NAME 
ne 1339 ; TABLE ENTRIES, PROVIDED THEY TOO ARE LOGICAL NAME TABLES. 
51 4 dO rt; 1428 150$ MOVL R4,R1 ;ADDRESS OF NEW LOGICAL NAME TABLE ENTRY 
Sl BE BE Pl nseue © ROMP ten owe tent oo 
wa. RESS OF MAPPED-TO ENTRY 
1 bo : Br iis ROAR :SAVE LAMB ADDRESS ob RAPPED=f0 Eh 
BA 115 
T(R6) ,R1 sRETRIEVE PARENT'S TABLE Boy 
Tot EO Bebe HEE sss, Ot RLUNTHSTEDIRECTONY =): SYSTER/PROCESS Segre, Met 
8 Al i: 1138 CNATHSC R TADDRESS. OF PARENT'S LNMB BLOCK 
oe ”" ‘h iy 8 fe 1428 BICB2 FLNMGSANODELETE = CLEAR THE TEMPORARY BIT BLOCKING 
Ej ce 1138 LWNTAC PARENTIRI), R1 : eos STEVE DARENT® "S TABLE HEADER 
si ” cE 9 ce 1123 Beat ras rag en : ADDRESS AND CONTINUE 
D 1161 
50 DOD 8 D 1162 160$: PUSHL RO : SAVE STATUS ccess 
oe EEO Be ae Pe ty SR LTE PETS 
. BSBW LNMSDELBLK ° 
Fog: ‘1 8 DB 1166 BRB 190$ sJOIN MAIN EXIT = STATUS ON STACK 
DD 1168; 
0 : NEW LOGICAL NAME TABLE HAS SUCCESSFULLY BEEN tee 
a UR Rie ar gg MAC ME 2b 
8 44 10 : Sarhy unt Wwe MAPPED TO AN EXISTING TABLE ENT THEN THE LOGICAL NAME BLOCK 
8 DD 1128 : CONTAINING THE NEW TABLE ENTRY IS DELETED aerure “RETURNING. 
O2DD 1174; 
DD 1175 as 
H s sWAS NEW gh MAPPED TO EXISTING ONE? 
50 91 py 5DD 1176 1708: cnet s9§_ NORMAL. RO UA NEU ENTRY 
50 4 is E 117 MOVL R4,RO S ADDRESS OF NEW ENTRY 
BP — 1128 PUSHL R3 SAVE ADDRESS | 4 ENTRY MAPPED TO 
bet " sebo +H igs 4g Freee ene S ADDRESS OF ENTRY MAPPED TO 
ED 11 
: ),R1 sADDRESS OF TABLE NAME COUNTED STRING 
51 11 ae ge SED HIBS 1758: movaB Lunas NAME RG ADDRESS OF TABLE. NAME 
F4 1185 
;RETURN LENGTH? 
a ar agama 
6B Fi B0 A i 3 MOVW RO, (R11) sRETURN L 
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SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 1 4 AX/VMS Macro V04-00 Pa SYS 
v04-000 EXESCRELNT = CREATE LOGICAL NAME TABLE g-S6F =}382 8g: $2: 8 Heys. SRCJSYSLNM.MAR; 1 ad ¢, v04 
59 05 FB 1190 180$: TSTL Rg ;WANT LOGICAL NAME TABLE NAME RETURNED? 
isa FD 1191 BEQL 1908 : BRANCH IF NO 
69 30 yl FF 1198 CMPW RO (RO) ‘ENOUGH ROOM? 
9 4 2 119 BGTR 185$ ‘BRANCH IF NOT ENOUGH ROOM 
0489 61 Q 28 4 1194 MOVC3 RO, (R1),@4(R9) SRETURN NAME STRING 
0 11 : 9 1195 BRB 196$ 
6E 0214 BF 3¢ i 1198 185$:  MOVZWL #SS$_RESULTOVF, (SP) ;NOT ENOUGH ROOM FOR NAME 
54 04 AE 00 3 1198 190$: MOVL 4(SP),R4 ;RETRIEVE PCB ADDRESS 
FCES" 14 1199 BSBW LNMSUNLOCK ‘UNLOCK TABLES 
50 8ED0 0317 1200 POPL RO SRESTORE STATUS 
04 1A o1 RET :RETURN TO CALLER 
318 1 8 DISABLE LSB 
031B 1204 ; * PAGE 
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ae 
ULATE LOGICAL 16-SEP-1984 AX/VMS Macro v04-00 P SYS 
NAME ~Eeer]SRs BSiSeics PeNCVRS Macro, NOK=00, oe 7, vod 


- .SBTTL EXESCRELNM - CREATE LOGICAL NAME 
; EXESCRELNM = CREATE LOGICAL NAME 


; THIS SERVICE PROVIDES THE CAPABILITY TO CREATE A LOGICAL NAME ENTRY WITH 
: ; SOME NUMBER OF EQUIVALENCE STRINGS. 


me 
> 
mo 
9 
on 
>v 
fa 


INPUTS: 
CNATTR(AP) = ADDRESS OF LOGICAL NAME ATTRIBUTES. 
CNTABNAM(AP) = ADDRESS OF TABLE NAME STRING DESCRIPTOR. 
CNLOGNAM(AP) = ADDRESS OF LOGICAL NAME STRING DESCRIPTOR. 
CNACMODE (AP) = ADDRESS OF ACCESS MODE OF LOGICAL NAME TO BE CREATED. 
CNITMLSTCAP) = ADDRESS OF ITEM LIST DEFINING TRANSLATIONS. 


= CURRENT PROCESS PCB ADDRESS. 
; OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO CREATE LOGICAL NAME TABLE ENTRY. 


RO = SS$_ACCVIO = LOGICAL NAME ere me’ LOGICAL NAME STRING, 
TABLE NAME Me inoen fem BUFFER” STRING, AN ITEM IN THE 


ITEM LIST, AN INDE FFER ei ATTRIBUTES ITEM 
UFFER, A STRING ITER BUFFER, CANNOT BE READ BY CALLING 
ACCESS MODE. TABLE ITEM BUFFER TABLE | ITEM SIZE BUFFER 
CANNOT BE WRITTEN BY CALLING ACCESS MODE. 
RO = SS$_BADPARAM = INVALID ATTRIBUTE, ACCESS MODE, ITEM TYPE, 
ITEM LENGTH, ITEM SPECIFIED. LOGICAL NAME DESCRIPTOR, 
CRIPTOR NOT SPECIFIED. 


RO = SS$_DUPLNAM - ATTEMPT MA +8 Mtn SUPERSEDE NON~AL IASABLE 
COGICAL NAME TABLE ENT 


RO = SS$_EXLNMQUOTA = INSUFFICIENT QUOTA AVAILABLE IN THE QUOTA 
TABLE FOR THE CREATION OF THE NEW LOGICAL NAME TABLE 

RO = SS$_INSFMEM = SUFFICIENT SYSTEM DYNAMIC MEMORY Pe NOT 
EXIST TO ALLOCATE LOGICAL NAME TABLE ENTRY AND 
IMPLICIT RESOURCE WAIT IS NOT ENABLED. 

RO = SS$_IVLOGNAM = ZERO OR GREATER THAN MAXIMUM LENG 
COGICAL NAME STRING, TABLE NAME STRING OR HOUT VALENCE 
STRING SPECIFIED, OR THE LOGICAL NAME {S TO BE CONTAINED 
WITHIN_A DIRECTORY TABLE AND is" EITHER GREATER THAN 51 
hy ea IN SIZE OR HAS INVALID CHARACTERS FOR SUCH 


RO = SS$_IVLOGTAB - INVALID LOGICAL NAME TABLE NAME SPECIFIED. 
RO 
RO 


SS$_NOLOGTAB - LOGICAL NAME TABLE SPECIFIED DOES NOT EXIST. 


SS$_TOOMANYLNM - TOO MANY LEVELS OF RECURSION IN SEARCH 
FOR LOGICAL NAME TABLE. 
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SIDE EFFECTS: 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


THIS ROUTINE + ITS 
IT IS CALLED AT SY 
aU YSEXEPAGED 
ENTRY EXESC 

BRW EXECR 
-PSECT YFSSLNM 
ENABLE LSB 


~$EP-1986 08:84:58 


AT IPL 2, AND MUS 


TC 
STEM INITEALTZATI ION TIM 


t ERROR MESSAGES AND RETURNS 


9000$: MOVZWL #SS$_ACCVIO,RO 
9010$: MOVZWL #SS$_BADPARAM,RO 
30208: MOVZUL #SS$_INSFMEM.RO 


9050$: 
EXECRELNM: 


NORMAL COMP 


AX/VMS Macro V04-00 
SYS.SRCJSYSLNM.MAR; 1 


RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = SS$_BUFFEROVF = 


LETION 
IED LOGICAL NAME 


~~ TO DO SO, BECAUSE 


cert o“M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> 


sACCESS VIOLATION 
BAD SYSTEM SERVICE PARAMETER 
: INSUFFICIENT MEMORY 


; VALIDATE AND COPY PARAMETERS AS NECESSARY. REGISTER ASSIGNMENT FOR THE 
; PARAMETERS ARE AS FOLLOWS: 


3 R5 = ACCESS MODE. 

3 R? = ATTRIBUTE BITS. 

: R9_ = ADDRESS OF PROBED AND COPIED TABLE NAME DESCRIPTOR, 

3 R10 = ADDRESS OF PROBED AND COPIED LOGICAL NAME DESCRIPTOR. 

; R11 = ADDRESS OF START OF ITEM LIST. 
MOVL CRSCHOSS CAP? RO :GET SPECIFIED ACCESS MODE 
BEQL : H_IF NOT PRESENT 
IFNORD (RO) ,9000$ ;CHECK READ ACCESS TO BYTE 
MOVZBL (ROQ),R :GET VALU 
CMPL #PSt§C_USERRO CHECK FOR VALID ACCESS MODE 
BLSSU =: 90108 ;INVALID ACCESS MODE 


ro tt 


REQUEST SUCCESSFULLY COMPLETED. AN ITEM 
BUFFER IS NOT LARGE ENOUGH TO HOLD REQUESTED DATA. 


RO = SS$_NORMAL = NORMAL COMPLETION, NEW ENTRY ENTERED IN 
SPECIFIED LOGICAL NAME TABLE. 


RO = SS$_SUPERSEDE - 


NEW ENTRY SUPERSEDED 
PREVIOUS ENTRY IN SPECIF TABLE. 


— 7 
SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 16=S AX/VMS Macro v04-00 Page 25 SYS 
v04-000 EXESCRELNM = CREATE LOGICAL NAME g-S6F =1382 88: gf: 8 YeyS. SRCIS SLNM.MAR: 1 . fi) v04 
D 1 3 
D 1 ; IF THE ACCESS MODE OF THE NEW LOGICAL NAME WAS EXPLICITELY SPECIFIED AND THE 
D 1 ; CALLER HAS THE SYSNAM PRIVILEGE, THEN THE NEW LOGICAL NAME Is CREATED WITH 
D 1 ; THE SPECIFIED ACCESS MODE. OTHERWISE, THE ACCESS MODE OF THE CALLER IS 
D 1324 ; MAXIMIZED WITH ANY EXPLICTELY SPECIFIED ACCESS MODE AND USED TO CREATE THE 
D 1325 : NEW LOGICAL NAME. 
Bs 
p 1 : IFPRIV SYSNAN, 60$ :PRIVILEGE 
° L 
00000000'GF 16 0343 1329 50$ JSB Grex SMAXACMODE MAXIMIZED WITH MODE OF CALLER TO 
55 50 00 49 p 60$: MOVE [DETERMINE ACCESS MODE OF NEW TABLE 
57 04 AC 09 4c j : MOVL GTR A : TABLE ATTRIBUTES 
12 13 0350 1 BEQL ;BRANCH IF NOT PRESENT 
3) 1334 IFNORD #4, (R7),9000$ [CHECK READ ACCESS 
57 67 D9 33 1335 MOVL  (R?),R7 :GET VALUE 
57 FFFFFFFS 8F D O32 1336 BITL #*C<'- 
36 1337 LNMSM_CONFINE! = sCONFINE TO PROCESS 
0362 1338 LNMSM-CRELOG! = TSCRELOG USED TO CREATE NAME 
N L - LL L 
036 39 LNMSH O_ALIAS [DO NOT ALLOW ALIASES 
BB O12 0362 i BNEQ 36108 ;INVALID TABLE ATTRIBUTES 
SA OC AC 09 ite 1 rk 200$: MOVL CNLOGNAM(AP),R10 sADDRESS OF LOGICAL NAME DESCRIPTOR 
B5 13 0368 1344 BEQL $ TERROR IF NOT PRESENT 
036A 1345 IFNORD #8, (R10) ,9000$ [CHECK ACCESS TO DESCRIPTOR 
50 6A ze 0 29 1 46 MOVAQ ),RO TADDRESS OF DESCRIPTOR 
FCBA' 30 0373 134 LNMSPROBER [PROBE LOGICAL NAME STRING 
AF 50 E9 0376 1348 BLBC ,9030$ ‘BRANCH IF CAN'T READ OR NOT PRESENT 
7E 51 Dd 0379 1349 MOVG = R1. = (SP) [SAVE LOGICAL NAME DESCRIPTO 
5A 5— 00 o37¢ 30 MOVL  SP,R10 SADDRESS OF LOGICAL NAME DESCRIPTOR 
59 08 AC 00 0 7F 1 3 MOVL  CNTABNAM(AP) ,R9 SADDRESS OF TABLE NAME DESCRIPTOR 
9 1 83 135 BEQL 90108 TERROR IF NOT PRESENT 
0 1354 IFNORD #8, (R9),9000$ SCHECK ACCESS TO DESCRIPTOR 
50 69 7E 0388 1355 MOVAQ (R9),R ‘SET UP CALL 
FC6F’ 30 BF 1 36 BSBW LNMSPROBER [PROBE TABLE NAME STRING 
94 30 c9 91 135 BLBC RO, 9030$ BRANCH IF CAN'T READ OR NOT PRESENT 
7E 51 7D 0394 1358 MOV = R15 = (SP) [SAVE TABLE NAME DESCRIPT 
59 5—E 00 4 39 MOVL = SP,R9 SADDRESS OF TABLE NAME DESCRIPTOR 
9A 1361; 
330 1 6¢ : PROBE AND VERIFY THE ITEM LIST. THIS IS THE FIRST OF TWO PASSES DOWN 
9A 1 6 : TEM LIST. THIS FIRST PASS IS BEING DONE TO ACCUMULAT 
9A 1364 : INFORMATION AS TO THE NUMBER OF TRANSLATION STRINGS BEING DEFINED AND 
9A 1365 ; THEIR COLLECTIVE SIZE FOR USE IN DETERMINING THE AMOUNT OF SPACE TO 
9A 1 26 + ALLOCATE FOR THE NEW LOGICAL NAME TABLE ENTRY. VALID ITEM TYPES FOR 
9A 6 : THIS SYSTEM SERVICE ARE: 
9A 1 $3 : ATTRIBUTES - ATTRIBUTES FOR NEXT TRANSLATION STRING 
9A 1370: INDEX - INDEX TO BE ASSIGNED TO NEXT TRANSLATION STRING 
9A 1371: STRING - EQUIVALENCE STRING 
9A 1 a} : TABLE - LOGICAL NAME TABLE NAME (OUTPUT ITEM) 
9A 1373: LNMBADDR = LOGICAL NAME LNMB ADDRESS (OUTPUT ITEM) 
AE 
7E 7C 039A 1376 CLRQ = = (SP) SCLEAR COUNTERS 


F 7? 
SYSLNM $ TO MANIPULATE LOGICAL 16-SEP- AX/VMS Macro V04-00 Page 26 
02-000 FATE LOGICAL NARE Breer b8e OS :seis5 FeNCMeS Hecco yOnz 00, - 
5B 14 AC MOVL SNITMLST(AP) .R11 ZADDRESS OF ITEM LIST 
BEQL 10$ ‘BRANCH IF NONE 
CLRL OR [CHAINED ITEM LIST COUNTER 
58 5B MOVL R11 Rg [USER R8 TO VERIFY ITEM LIST 
10058: IFNORD #4,(RB),1021$ SCHECK IF FIRST LONGWORD READABLE 
52 02 a8 " MOVZWL (RB) ,R2 :GET ITEM TYPE 
4C EQL 010$ ;DONE IF ITEM TYPE IS ZERO 
IFNORD #12,4(R8),1021$ ‘CHECK REST OF THIS DESCRIPTOR 
[PLUS FIRST LONGWORD OF NEXT ONE 

CASE —-R2, <= ;HANDLE EACH ITEM TYPE SEPARATELY 
1040$, - s INDEX ITEM 
10308, - TRING ITEM 
10408, - SATTRIBUTES ITEM 

¥ [040s - [TABLE ITEM 
52 09 CMP #CNAS_LNMB_ADDR, R2 ;TEST FOR LNMB_ADDR 
52 sO F FFF 8F CMPW #LNMS_CHAIN,R2 :TEST FOR CHAINED LIST 
1C BEQL  1050$ 
FFGA 1015$: BRW 9010$ SILLEGAL ITEM TYPE 
1020$: RET [RETURN ANY ERRORS 
FF42 1021$: BRW 90008 yACCESS VIOLATION 


: STRING ITEM. 


4 
4 
40 
40 
20 
406 : VALIDATE THE ITEM. IF THE STRING SPECIFIED IS A VALID EQUIVALENCE 
40 $ STRING THEN INCREMENT THE TRANSLATION STRING COUNTER D THE 
D9 40 ; SIZE OF THIS STRING TO THE TOTAL STRING SIZE BEING AECUMULATED. 
D9 1410 ° 
50 68 ze D9 1411 1030$: MOVAQ (RB) ZADDRESS OF STRING ITEM DESCRIPTOR 
FC21" 3 DC 141 BSBW LAMSPROBER [PROBE TRANSLATION STRING 
F350 £9 O3DF 141 BLBC ~=—_- RO, 10208 ‘BRANCH IF CAN'T READ OR NOT PRESENT 
gf 06 E2 141 INCL S INCREMENT EQUIVALENCE STRING COUNTER 
04 AE C EG 41 ADDL2 R1,4(SP) tADD SIZE OF STRING TO TOTAL SIZE 
E 417; 
41 t POSITION TC THE NEXT ITEM IN THE ITEM LIST. 
£8 1420 © 
58 0c 60 £8 1421 1060$: ADDL2 #12,R8 sPOSITION TO NEXT ITEM 
FFBF 31 # 4 BRW 1016$ [AND CONTINUE ITEM LIST VERIFICATION 
EE 1404 ; 
EE 4 ; POSITION TO THE NEXT CHAIN OF THE CHAINED ITEM LIST. 
EE 1497 ° 
50 D6 O3EE 1428 1050$: INCL R sCOUNT ONE MORE 
0400 8F 50 8} FO 14 CHPW 3S s«RO, #1024 
D 4 O3F5 14 BGTR 1015$ TOO MANY = ASSUME A LOOP 
58 04 A 09 F? 14 MOVL 4 (RB).RB <GET POINTER TO NEXT LIST 
02 1 FB 14 BEQL 01 $ SLA 
AB 11 «O3FD 14 BRB 05$ :PROCESS THIS ONE 
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C }PULATE juScita 16-SEP=1 AX/VMS Macro v04-00 

if grSEp=1S8e BS:8Zi88 HSNE MEE Haste mA RO 

§ 3; RAISE IPL TO AST DELIVERY LEVEL SO THAT THERE ARE NO 

; INTERRUPTIONS WHILE THE NEW LOGICAL NAME ENTRY IS BEING CREATED. 

5 20108: SETIPL S*#IPLS_ASTDEL RAISE TO AST DELIVERY LEVEL 
42 ; 
45 ; ALLOCATE A LOGICAL NAME BLOCK FOR, THE NEW LOGICAL NAME TABLE ENTRY. 
44 ; ASSUME THAT THE NEW LOGICAL NAME TABLE WiLL BE SHAREABLE, SO ALLOCATE 
45; THe SPACE FROM SYSTER PAGED POOL. oNTiL HE LOGIC TABLE IN 
4g ; WHICH THE NEW ENTRY WILL BE LOCATED IS FOUND, WHETHER THE NEW 
47 ; LOGICAL NAME TABLE ENTRY WILL BE IN SYSTEM POOL AND SHAREABLE OR IN 
$3 3; P1 SPACE AND NOT SHAREABLE IS NOT K HOWEVER, THE LOGICAL NAME 
49 ; MUTEX MUST BE LOCKED BEFORE A SEARCH BE MADE FOR THE LOGICAL 

29 ; NAME TABLE, AND ONCE THE MUTEX IS LOCKED, SYSTEM POOL CAN NOT 

é : ALTHOUGH P{1 POOL CAN BE ALLOCATED. REFORE, THE NEW LOGICAL NAME 

§ 3 TABLE ENTRY IS ASSUMED TO BE SHAREABLE, AND If THE LOGICAL NAME 

53 ; TABLE WHICH TO TO CONTAIN THE NEW ENTRY IS F o RESIDE IN 

24 3 M POOL, THEN THE SYSTEM POOL ALLOCATED FOR THE NEW ENTRY IS 

36 ; DEALLOCATED, AND PROCESS=PRIVATE POOL IS ALLOCATED IN ITS PLACE. 

38 MULL PLNAXST XLATION,(SP),R1 ;LNMXS OVERHEAD + 

5 ADDL TRANSLATION STRING COUNT FIELDS + 
60 ADDL (SP)s. Ri TRANSLATION STRINGS SIZES + 
61 ADDL {R10), “Rl LOGICAL NAME SIZE + 
6¢ ADDL LOGICAL NAME COUNT FIELD + 
6 UNABST _NAME +1 + ~ iL OVERHEAD + 
64 - ; TRAILER avi = 
65 >,R1 :SIZE OF SYSTEM POOL TO ALLOCATE 
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7 RY WILL BE SHAREABLE BECAUSE THE LOGICAL 


NT 
HE NEW ENTRY HAS BEEN FOUND TO BE, THEN MAKE 


ee ee eee ee ee eS SS 
SN ee ee NS 


IF | NEW LOGICAL NAME TABLE 
3 NAME TABLE WHICH WILL CONTAIN T 


S GrEXESALOPAGED ZALLOCATE THE LOGICAL NAME TABLE ENTRY 
8 BLBS R0,2040 FFICIENT MEMORY 
BRW 9020$ ZOTHERWISE RETURN ERROR 

0 20408: MOVW R1,LNMBSW_SIZE(R2) TSAVE NEW BLOCK SIZE WITHIN THE BLOCK 

§ + WRITE LOCK THE LOGICAL NAME MUTEX AND THEN POSITION TO THE LOGICAL NAME 
4 : TABLE THAT IS TO CONTAIN THE NEW LOGICAL NAME TABLE ENTRY. DEALLOCATE THE NEW 
; 3; LNMB IF UNABLE TO POSITION TO ANY TABLE ENTRY 
8 PUSHR #*M<R2,R4> sSAVE ADDRESS OF PCB AND NEW LNMB 
BSBW 3s LNMSLOCKW TLOCK TABLES FOR WRITING 
0 MOVL TACCESS MODE 
1 mOVa = (R$) : TABLE DESCRIPTOR 
: BSBW (Nast RRSTTAB SSEARCH FOR SPECIFIED TABLE 
POPL 4 SRESTORE ADDRESS OF NEW LNMB 
i PUSHL R : SAVE RETURN STATUS 
5 BLBS.ssaR 20508 [BRANCH ON FAILURE 
6 BRW 4020$ 


iy 
Fels 0 MA ULATE LOGICAL 19° Hates 9 oe: gf: $6 AX/VMS Macro Vv04-00 Page i § | SY 


- SYSTEN SERVICES TO MANIPU SYS 
EXESCRELNM = CREATE LOGICA SYS.SRCJSYSLNM.MAR; 1 v04 
438 1491; SURE THE NEW LOGICAL NAME TABLE ENTRY WILL NOT BE MARKED AS CONFINED AND 
‘ 8 16 : MAKE SURE THE CALLER HAS WRITE ACCESS TO THE CONTAINING TABLE. 
00 €1 14 4 2050$: BBC #LNMTHSV thesia: :BRANCH IF THE CONTAINING TABLE ENTRY 
18 6 430 149 LNMTHSB_FLAGS(R1).2070$ 21S IN PROCESS-PRIVATE SPACE 
57 2 CA oat 1436 BICL2 PLNASR. CONF INE, SSHAREABLE NAMES CAN'T BE CONFINED 
52 92 9A 044 1498 MOVZEL #WRITE_ACCESS,R2 sCODE FOR ACCESS CHECK 
DD 0445 149 PUSHL R4 SAV LNB PTR 
54 08 AE p 447 1 0 MOVL  &(SP) SRESTORE PCB 
FBBo" 448 1 BSBW LNBCAIECK _PROT : CHECK THE PROTECTION 
54 D0 04 : 1 5 MOVL  (SP)+,R4 SRESTORE LNMB 
41 £8 0451 1 BLBS 3 O60$ ‘0K 
bE b 454 1504 MOVL RO, (SP) SSAVE STATUS 
O1FC 457 1505 BRW 40208 SAND EXIT 
tea | 09 
465A 1 § ; IF THE LOGICAL NAME TABLE THAT IS TO CONTAIN THE NEW LOGICAL NAME TABLE ENTRY 
45A 1509 ; IS DISCOVERED TO EXIST IN PROCESS-PRIVATE SPACE, THEN THIS IS ALSO WHERE THE 
45A 1510 ; NEW LOGICAL NAME ENTRY SHOULD GO. DEALLOCATE THE SYSTEM SPACE LNMB, AND 
‘3h 1318 $ ALLOCATE THE SAME SIZE BLOCK FROM P1 SPACE. 
45a 1513 ° 
51 p 45A 131% 2070$: PUSHL R1 ySAVE ADDRES OF CONTAINING TABLE HEADER 
7E O08 AG 3¢ 045¢ 1515 MOVZWL LNMBSW_SIZE(R4),-(SP) SAVE SIZE OF LNMB 
50 54 06 46 1316 MOVL RO TADDRESS OF SYSTEM SPACE LNMB 
FB9A' 30 465 131 BSBW LNMSDELBLK [DEALLOCATE SYSTEM SPACE LNMB 
51 BEDO 0466 1218 POPL R11 :SIZE OF STORAGE TO ALLOCATE 
00000000'GF 16 0469 1520 JSB G*EXESALOP1PROC sALLOCATE NEW LNMB FROM P1 SPACE 
9 0 58 A6F 13 1 BLBS :BRANCH IF SUCCESSFU 
04 AE gu 4 BF ¢ 4 : 1 g MOVZWL asi INSFMEM, 4 (SP) ; OTHERWISE RETURN INSUFFICIENT MEMORY 
E 04 c 78 #15 ADDL2 STHROW AWAY TABLE HEADER ADDRESS 
O1DE 31 478 3 4 BRW 1080s RETURN ERROR AFTER RELEASING MUTEX 
54 52 0 047 1 4 2080$: MOVL R2,R4 ZADDRESS OF NEW 
08 A4 BO 0481 1 MOVW  R1,LNMBSW_SIZE(R4) TSAVE NEW BLOCKS LITE WITHIN BLOCK 
51 8ED 5 1 : POPL RI TADDRESS OF CONTAINING TABLE HEADER 
52 09 Al DO 0488 1 MOVL C AITHSL -NAME (R1) R2 ZADDRESS OF TAB 
01 48C 1530 BBC #LNMBSV~ CONF I NE 5 t1S THE ENTRY MARKED CONF INE? 
04 10 A2 4 F 1531 LNMB$B_FLAGS(R2) ,2 29908 : BRANCH 
0057 O01 €3 49 ‘ BBCS  #LNMSV“CONFINE,R?,2090$ :MAKE SURE NEW ENTRY IS IF SO 
495 1534; 
495 1535 : MAKE SURE THAT THE QUOTA HOLDER OF THE LOGICAL NAME TABLE WHICH IS TO CONTAIN 
495 1 6 : THE NEW LOGICAL NAME TABLE ENTRY HAS SUFFICIENT QUOTA FOR THE CREATION OF 
49 : THIS NEW LOGICAL NAME TABLE ENTRY. 
433 1 ; 
52 19 Al po 495 1540 2090$: MOVL  LNMTHSL_QTABLE(R1),R2  ;RETRIEVE QUOTA HOLDER'S ADDRESS 
0B AG 3C 499 41 MOVZWL LNMBSW_SIZE(R4),RO- [SIZE OF QUOTA TO BE WITHDRAWN 
21 A2 D1 049D 1 2 CMPL 0 LNATHSL_BYTES(R2) z1S THEIR SUFFICIENT QUOTA? 
18 04A1 1544 BLEQU ‘YES = THEN CONT 
6E 224C BF 35 4A3 1545 MOVZWL asss EXLNMQUOTA, (SP) [NO = THEN DEALLOCATE LNB AND RETURN 
O1AB O31 Aad 46 BRW 40208 ; EXCEEDED QUOTA ERROR 


mm 
DT) 
— 

m— 


Oo 
Reb Se Oe Se Be Se Oe Oe Oe ee Se Oe 


sss 


=—~ 


UWo-W 


-—-Oom—- —@ ov 
SNIP PAA AA AAA AMM 


rAd tb Ab Ab-dbb bbb edb bbb bbb db dh bb ab db db db beth tb db db db dh hh ech cdch shh dhah dich “sch sch dlch duh “ch “el 


AEA SO OD NAW EWN O OO NIA NE WINI OOD NOAUNE WOO DNAULS WI" O0ORD Wo 


a a a a dd a 
OOO000 


MM NN $$ © ONVNEVOQOOCOCOOCOOOS FOO" NO OL$ MOO PU 


OO0000 77 FFT HHH HH HH HMMMMMOOTOOCIAAAANMAO 


RANLSSSVTE 


GOOD 


: 
: 


rac uta. carriage ABest REO, tom at, 


LOGICAL NAME TABLE ENTRY. REGISTER USAGE IS AS FOLLOWS: 


2 ADDRESS OF THE LOGICAL NAME TABLE'S TABLE HEADER. 
= ADDRESS OF LOGICAL NAME BLOCK FOR NEW LOGICAL NAME TABLE ENTRY. 
= Access MODE 
= ATTRIBUTE BITS. 
= ADDRESS OF PROBED AND COPIED TABLE NAME DESCRIPTOR. 
= ADDRESS OF PROBED AND COPIED LOGICAL NAME DESCRIPTOR. 
= ADDRESS OF ITEM LIST. 
MOVAB LNMBS$B -TYBE(R4) -RO sPOSITION TO BLOCK TYPE 
MOVB #DYNSC"LNM, (RO) [SET DATA STRUCTURE TYPE 
R5,(R [SET OWNER ACCESS MODE 
R1. (RO) TADDRESS OF CONTAINING TABLE HEADER 
a7" (RO) ¢ 7STORE NAME ATTRIBUTES 
vB (R10), (ROD+ [STORE LENGTH OF NAME 
PUSHL 4 [SAVE LNMB ADDRESS ON STACK 
BS #LNAT HSV Di RECTORY,- _ :BRANCH IF THIS LOGICAL NAME TO BE 
AGS(R1),3005$ :CONTAINED WITHIN A DIRECTORY HEADER 
mOvC3 m0) ett R10), (ROS sMOVE LOGICAL NAME INTO UNS NAME FIELD 
:JOIN COMMON CODE 
MPW = (R10) ,#LNMSC_TABNAMLEN ;SIZE EXCEED MAX FOR NAME IN DIRECTORY? 
BLEQU 3009S : CONT INUE IF IT DOESNT 
POPL RG SOTHERWISE RESTORE LNMB ADDRESS 
MOVZWL #SS$_IVLOGNAM, (SP) TSET ERROR CODE 
BRW 40208 :GO RETURN ERROR 
MOVTUC (R10),@4(R10),#0,- i CHECK | FOR PROPER LOGICAL NAME SYNTAX 
EXESLNM_SYNTAK_DAT,- 3 AND THE SAME TIME MOVE THE LOGICAL 
CQ) «(ROD at THE LNMB NAME VF IEUD 
300 $ :60 RETURN ERROR IF IMPROPER SYNTAX 
R5,R3 SELSE SHIFT LNMX ADDR INTO PROPER REG 
R4 SRESTORE LNMB ADDRESS FROM STACK 
FILL IN THE LNMX PORTION OF THE LOGICAL NAME BLOCK FOR THE NEW LOGICAL 
TABLE ENTRY. THIS INVOLVES PROCESSING THE ITEM LIST FOR A SECOND TIME SO 
THAT THE LOGICAL NAME TRANSLATION BLOCKS MAYBE CONSTRUCTED, AND ANY OUTPUT 
INFORMATION RETURNED. 
R11 :WAS AN ITEM LIST DEFINED? 
39308 [YES = GO PROCESS IT 
9 [NO = SKIP ITEM LIST PROCESSING 
Ré 30 IS THE DEFAULT INDEX 
R [NO ATTRIBUTES DEFINED AS Y 
IFNORD #4,(R11),3060$ [CHECK IF FIRST LONGWORD READABLE 
MOVZWL acai). ~R2 :GET ITEM TYPE 
L 0208 [DONE IF ITEM TYPE IS ZERO 
IFNORD #12,4(R11), 30608 >CHECK REST or THIS DESCRIPTOR 
ZPLUS FIRST LONGWORD OF NEXT ONE 
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; Meld S55 TO MANIPULATE LOGICAL teh 9 Oe 782788 eae Macro V04-00 Page 70 


ATE LOGICAL NAME SYS.SRCISYSLNM.MAR; 1 


1 CASE = R2, <= :HANDLE fac ITEM TYPE SEPARATELY 
: - <TR ENG “en 
_* SATTRIBU és ITEM 
~ STABLE ITEM 
cpu a nie _LNMB_ADDR, R2 ;TEST FOR SPECIAL ITEM 
CRP ae _CHAIN,R2 ;TEST FOR CHAINED ITEM LIST 
15 3050$: BRW i 308 sILLEGAL ITEM 
spo; BRW ;REPORT ACCESS VIOLATION 
1 : 
19 ; POSITION TO THE NEXT CHAIN IN THE CHAINED ITEM LIST. 
3070$: MOVL 4(R11),R11 :GET POINTER 
BEQL 0208 T ITEM 


7LAS 
BRB 055$ 3G0 PROCESS IT 


OGICAL NAME BLOCK ADDRESS 


Pt 
: TEST If THE LOGICAL NAME BLOCK ADDRESS CAN BE WRITTEN IN THE 
REQUESTED PLACE. ( CURRENT USE IS TO LINK A LOGICAL NAME BLOCK 
WITH MTL OR MAILBOX UCB ) 


100$: CMPW #6,(R11) 31S THE ITEM A LONGWORD 
BNEQ 30508 TERROR IF NOT 
MOVL (R11) RQ SRETRIEVE ITER BUFFER ADDRESS 
1FNOWRT #4, (ROS, 060$ :ACCVIO IF ITEM BUFFER ior WRITEABLE 
MOVL 4. (RO) MOVE THE ADDRESS OF LNM TO BUFFER 
BRW 39108 :GO POSITION TO NEXT ITEM 


INDEX OR ATTRIBUTES ITEM. 


; VALIDATE THE ITEM. SAVE THE INDEX OR ATTRIBUT FY FOR APPLICATION TO 
; THE NEXT TRANSLATION BLOCK THAT IS TO BE CREATED. 


3 


DOONAN EP 9 SF OOD NIA NE © OD NA NE WIN "SO ODNO NEW 2 OOD NAN EU  O OOVNOUM 


et ts tk ed tt nb 2 4 bs a a as 2s — 2s 8 ts sb ss 2s sn a a tt a 


B.S remem nnn ven be Be Be be bee Be Be Be Be ed at od edd I RP ORORORORORD 


200$: CMPW #4,(R11) :1S ITEM BUFFER AT LEAST A LONGWORD? 
BGTRU 30308 SERROR IF NOT 
MOVL (R11) RO TRETRIEVE ITEM BUFFER ADDRESS 
IFNORD (R11),(R9), 30608 SACCVIO IF ITEM BUFFER NOT READABLE 
MOVL  (RO),RO [PICK UP THE LONGWORD 
CMP BLNMS_INDEX,R2 71S IT AN INDEX ITEM? 
BEQL 32108 [YES = BRANCH AND VERIFY INDEX ITEM 
It 36 #*C = [TEST FOR INVALID ATTRIBUTES 
LNMSM_CONCEALED! - ; TRANSLATION 18 CONCEALED 
5° Nemes - [TRANSLATION IS TERMINAL 
BNEQ 365 $ sINVALID ATTRIBUTES ITEM 
ROTL  &#-8,RO,RB [SAVE ATTRIBUTES FOR LNMX CREATION 
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SYSLNA. oxbbiuee SERVICES TO MANIPULATE LBGieAL g- SEp-1984 0¢: 2: $6 YAXZvis Macro v04-00 Page 31 SYS 


SCRELNM ATE LOGICAL NAME SYS.SRCJSYSLNM.MAR; 1 (4) v04 
OOAD 31 é BRW 39108 360 POSITION TO NEXT ITEM 
50 FFFFFF8O 8F 1664 3210S: BITL  #*C127,R0 :1$ INDEX BETWEEN 0 AND 127? 
* tH , : BEQL $3508 [YES = NO PRIVILEGE NEEDED 
A 1 3 
Al : THIS IS HERE SO THAT MTL OR MAILBOX UCB CAN HAVE ITS ADDRESS 
A ; STORED IN THE LOGICAL NAME BLOCK. 
ae 
52 D A 1 f MOVPSL R2 :GET THE Pst 
52. v0c00000 BF oD 1 BITL Pst sn PRVMOD,R2 [TEST IF PREVIOUS MODE WAS KERNEL 
Al 1 1675 BNEQG 30 [NO = BAD INDEX 
50 FFFFFF81 ar d1 (0585 1 2 CMPL §#LNMXSC_BACKPTR,RO [CORRECT INDEX 
8 iF ; C , BNEG ; 308 [NO = BAD INDEX VALUE 
56 50 «1 1 8 32208: CMPL ROR :1S INDEX LESS THAN LAST ONE SEEN? 
1 19 39 1680 BLSs 3050 7YES = INVALID INDEX ITEM 
56 9 06 95 1681 3225$: MOVL RO R6 [SAVE INDEX FOR LNMX CREATION 
008 598 16 : BRW 3910$ :GO POSITION TO NEXT ITEM 
8 ek 
398 16 5 : STRING ITEM. 
598 18 $ : VALIDATE THE ITER. INCL UDING THAT THE STRING SPECIFIED IS A VALID EQUIVALENCE 
598 1688 : STRING. VERIFY THAT THE CREATIO ON OF THIS TRANSLATION BLOCK WILL NOT EXCEED 
598 168 3 THE AMOUNT OF SPACE ALLOCATED. FILL IN THE NEXT TRANSLATION BLOCK UTILIZING 
598 1690 : THE STRING SPECIFIED AS THE TRANSLATION STRING AS WELL AS THE CURRENT INDEX 
398 1893 ; AND ATTRIBUTES SETTINGS. INCREMENT THE CURRENT INDEX. 
598 1693 ° 
50 68 ze 598 1694 3300$: MOVAQ (R11).RO :ADDRESS | OF STRING ITEM DESCRIPTOR 
FASF' 3 39 1695 BSBW LNMSPROBER PROBE TRANSLATION STR 
42 50 =«€9 3A 1696 BLBC =—_ RO, 34108 {BRANCH if CAN'T READ OR NOT PRESENT 
50 53 54 C3 05:4 1698 SUBL3 RG ;NUMBER OF BYTES CURRENTLY IN USE 
30 0 5A8 169 ADDL2 # az? _XLATION+2,RO ADD OVERHEAD FOR CUR RENT TRANSLATION 
1 ¢€O O5aB 1700 ADDL2 R1,R [ADD IN SIZE OF CURRENT TRANSLATION 
08 A4 Q 81 SA 1701 CMP RO gbNMBSU_SIZE CRG) SEXCEED LOGICAL NAME BLOCK SIZE? 
L ry 7 é BGTRU 39% [YES = RETURN AN FRROR 
83 8 20 387 1704 MOVB = RB, (R3) + : CURRENT ATTRIBUTES BECOME LNMX FLAGS 
8 $ 387 1705 MOVB = R6.(R3)+ [CURRENT INDEX LEVEL BECOMES LNMX LEVEL 
B4 058A 17 6 CLRW 3s (RB) + SINITIALIZE HASH CODE LOCATION 
m 06 Sac (17 INCL Re S INCREMENT INDEX LEVEL BY 1 
83 51 SBE 17 8 MOVE = R}1, (R3)+ [STORE SIZE OF TRANSLATION STRING 
4 p ci 17 PUSHL R4 SSAVE NEEDED REGISTERS OVER MOVC 
63 62 51 (3 (17 9 MOVCS R1,(R2),(R3) [MOVE TRANSLATION STRING INTO LNMX 
4 BED ¢? (171 POPL TRESTORE REGISTERS 
fe CA 218 BRB 3910 [GO POSITION TO NEXT ITEM 
Tae 
i 1716 TABLE ITEM. 
€¢ 171 VALIDATE THE ITEM. STORE THE NAME OF THE LOGICAL NAME TABLE WHICH IS TO 
fe 1718 : CONTAIN THIS NEW LOGICAL NAME TABLE ENTRY IN THE ITEM BUFFER PROVIDED, AND 
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= SYSTEM SERVICES TO MANIPULATE Logica 16-SEP-1984 02:22: AX/VMS Macro Vv04-00 Page 32 SYS 
EXESEREUNE = CREATE LOGICAL NAME g- SE b= 18 4 9¢:82:48 LEYS SRCISYSCNM MARST v04 
éf 17 ; THE SIZE OF THE NAME STORED IN THE ITEM SIZE BUFFER, IF PROVIDED. 
c¢ 1 : 
ze 68 7D O5€C 1722 34008: mova  (R11),-(SP) ZSAVE DESCRIPTOR OF TABLE ITEM BUFFER 
Si 6E CF 17 MOVZWL (SP),R1 7SIZE_OF TABLE ITEM BUFFER 
50° O04 AE OD D2 1706 MOVL 4<(SP5,RO ZADDRESS OF TABLE ITEM BUFFER 
2 DD 0506 1725 PUSHL R [SAVE CURRENT LNMX POSITION 
D4 0508 17 § CLRL. oR sACCESS MODE 
00000000 ' GF 16 DA 17 JSB G*EXESPROBEW [PROBE TABLE ITEM BUFFER FOR WRITTING 
3 ED E9 17 8 POPL R3 SRESTORE CURRENT LNMX POSITION 
51 : p e317 MOVG (3) R1 SRESTORE TABLE ITEM BUFFER DESCRIPTOR 
45 E ES 7 p 3410$: BLBC RO,3940$ SRETURN IF NOT WRITEABLE 
55 oc AG 00 €9 17 g MOVL LNMBSL TABLE (R4) RS ;ADDRESS OF CONTAINING TABLE HEADER 
3 9 Ad p SED 17 MOVL LNMTHSC_NAME(RS) .R5 SADDRESS OF CONTAINING LNMB 
55 C1 A —€ O5F1 1734 MOVAB LNMBST_NAME(RS),R5 SADDRESS OF COUNT FIELD 
50 85 9A srs 4 5 MOVZBL (R5)+,RO 3SIZE OF CONTAINING TABLE'S NAME 
51 50 61 O5F8 17 § CMPW 3S s«aRO,R1 :ENOUGH ROOM IN BUFFER FOR NAME? 
08 15 O05FB 1738 BLEQ 34808 [BRANCH IF SUFFICIENT ROOM 
0601 8F 3 SFD «1739 MOVZWL &#SS$_BUFFEROVF, (SP) [CHANGE RETURN STATUS 
50 51 3¢ 608 1740 MOVZWL R1,RO SRETURN AS MUCH AS POSSIBLE 
51 08 AB 00 605 1248 3420$: MOVL (R11) ,R1 ;WAS A RETURN LENGTH BUFFER SPECIFIED 
09 13 0609 174 BEQL 430$ [NO = DON'T RETURN LENGTH 
9608 1744 IFNOWRT #2,(R1),39208 SYES = PROBE RETURN LENGTH BUFFER 
61 50 B80 0611 1745 MOVW = RO, (R1) ; AND RETURN LENGTH 
7E 53 7D 0614 1949 3430$: MOVQ R3,-(SP) ZSAVE REGISTERS OVER MOVC3 
62 65 50 28 0617 1748 MOVC3 RO. (R5), (R2) [RETURN CONTAINING TABLE NAME STRING 
53 BE 7D 618 1749 MOVa  (SP)+,R$ SRESTORE SAVED REGISTERS 
5B 0C) «6CO «(061E ~=1751 3910S: ADDL2 #12,R11 :POSITION TO NEXT ITEM 
FEDD 31 6 i 1736 BRW 3046 SAND CONTINUE ITEM LIST VERIFICATION 
6E OC 3C 0624 ieee 3920$: MOVZWL #SS$_ACCVIO, (SP) sACCESS VIOLATION 
> ° f 123 BRB 40208 ;DEALLOCATE NEW LNMB AND RETURN ERROR 
6E 14 3C 0629 1989 3930$: MOVZWL #sss BADPARAM, (SP) :BAD PARAMETER SEEN 
mo Ti 6 c 1738 BRB 40208 :DEALLOCATE NEW LNMB AND RETURN ERROR 
6—E 50 D0 06 i 1760 3940$: MOVL RO (SP) :SAVE RETURN STATUS 
23.11 : 1768 BRB 40208 :DEALLOCATE NEW LNMB AND RETURN ERROR 
6 1765 ; 
633 1764 : FILL IN THE LAST LNMX PORTION OF THE LOGICAL NAME BLOCK FOR THE NEW LOGICAL 
633 1765 ; NAME TABLE ENTRY. THE LAST TRANSLATION BLOCK CONSISTS SOLELY OF A FLAGS FIELD, 
6 1766 : AND IS MARKED WITHIN THIS FLAGS FIELD AS THE LAST LNMX. 
633 1768 ° 
83 04 90 6 : Ki 3950$: MOVB #LNMXSM_XEND,(R3)+ ;STORE END FLAG 
6 1771 ; 
6 4 120 : AT THIS POINT ALL CHECKS HAVE BEEN MADE, AND THE TABLE STRUCTURES MAY NOW 
é 44 : BE MODIFIED FOR THE FIRST TIME. INSERT THE NEW LOGICAL NAME TABLE ENTRY. 
1775 : THIS INSERTION MAY TAKE ONE OF TWO FORMS: 


4020$: MOVL R4,RO sLOGICAL NAME BLOCK FOR NEW TABLE ENTRY 
BSBW LNMSDELBLK ;DELETE BLOCK CONTAINING NEW TABLE ENTRY 
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54 04 AE VL 4(SP) ,R4 Hays i PCB ADDRESS 
F99D" BSBW LNMSUNLOCK ;UNLOCK TABLES 
50 8ED POPL RO ;RESTORE STATUS 
0 RET :RETURN TO CALLER 
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SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 02:22: AX/VMS Macro v04-00 Pp 33 SY$ 
04-000 EXESCRELNM = CREATE LOGICAL NAME Breer E8t BSikeih PANKMES Bacco, yOk=00, — vol 
1776 ; 
120? 3 1.) THE LOGICAL NAME TABLE ENTRY MAYBE INSERTED AS A NEW LOGICAL NAME. THE 
1708 ; FOLLOWING CONDITIONS MUST HOLD TRUE. 
1780 : A.) THERE IS NO LOGICAL NAME TABLE ENTRY WITH THE SAME NAME AND ACCESS 
7 : ; MODE WITHIN THE SAME CONTAINING LOGICAL NAME TABLE. 
636 1783 : B.) THERE I$ NO LOGICAL NAME TABLE ENTRY WITH THE SAME NAME AND A 
6 1784 ; INNER ACCESS MODE WITHIN THE SAME CONTAINING LOGICAL NAME TABLE 
6 7 5: THAT DOES NOT ALLOW ALIASES. 
6 6 17 | : 2.) THE ENTRY MAYBE INSERTED SUPERSEDING AN EXISTING ENTRY WITHIN THE SAME 
636 (17 g ; CONTAINING LOSICAL NAME TABLE WITH THE SAME NAME AND ACCESS MODE. THE 
° ° 4 OLD LOGICAL NAME TABLE ENTRY IS DELETED. 
636 1791 : IF EITHER, CASE OCCURS AND uli NEW LOGICAL NAME TABLE ENTRY DOES NOT ALLOW 
636 1798 ; ALIASES, THEN ANY LOGICAL NAME TABLE ENTRIES IN THE SAME CONTAINING LOGICAL 
ae 6 1793 : NAME rele WITH THE Sane NAME BUT AT AN OUTER ACCESS MODE ARE DELETED. 
636 1795 ° 
51 54 DO 0636 179 MOVL R4,R1 ZADDRES OF NEW LOGICAL NAME TABLE ENTRY 
a. oP p60 Og 9 1599 MOVL  _R7.R2 TRIBUTES 
F9C1" 30 063C 1798 BSBW LNMSINSLOGTAB INSERT NEW LOGICAL NAME TABLE ENTRY 
50 0631 oF 8} oes 1799 cHPU #SS$ SUPERSEDE, RO iN anc Tr ion WITH SUPERSEDE? 
6E 0601 BF Bi 064 1801 CMPW sss BUF FEROVF , (SP) BUF FFER OVERFLOW SEEN? 
OF 13 064 1 : BEQL 40308 YES = THEN RETURN THAT STATUS 
6— 50 00 0640 1 MOVL RO, (SP) ‘OTHERWISE RETURN SUPERSEDE SUCCESS 
09 50 £8 0650 1 4010$: BLBS RO, 40308 SBRANCH GON SUCCE 
6— 50 00 96 MOVL RO, (SP) SOTHRWISE SAVE ERROR STATUS 
656 1 
659 1 
65C 1 
65C 1 
660 1 
663 1 
0666 1 
0667 1 
0667 1 
0667 1 
0667 1 
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R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO DELETE LOGICAL NAME(S). 
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TEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 02:22:4 AX/VMS Macro v04-00 Page 34 SY! 
ELLNM = DELETE LOGICAL NAME eet §¢:82:68 YOYS SRCISYSCNM MARCI  %) vou 
1 : .SBTTL EXESDELLNM - DELETE LOGICAL NAME 
6 EXESDELLNM = DELETE LOGICAL NAME 
: THIS SERVICE PROVIDES THE CAPABILITY TO: 
6 1. DELETE A SPECIFIED LOGICAL NAME. 
6 . DELETE A SPECIFIED LOGICAL NAME TABLE. 
6 . DELETE ALL THE LOGICAL NAME TABLE ENTRIES CONTAINED WITHIN A 
6 SPECIFIED LOGICAL NAME TABLE. 
? INPUTS: 
6 DNACMODE(AP) = ADDRESS OF ACCESS MODE OF LOGICAL NAMES(S) TO BE DELETED. 
6 DNLOGNAM(AP) = = ADDRESS OF LOGICAL NAME STRING DESCRIPTOR. 
6 DNTABNAM(AP) $= ADDRESS OF TABLE NAME STRING DESCRIPTOR. 
é 
6 3 
6 3 
3 
6 RO = SS$_ACCVIO = TABLE NAME DESCRIPTOR, TABLE NAME STRING 
6 COGICAL NAME DESCRIPTOR, LOGICAL NAME STRING, CANNOT 
6 BE READ BY CALLING ACCESS MODE. 
RO = SS$_BADPARAM = INVALID ACCESS MODE SPECIFIED. NO TABLE 

NAME DESCRIPTOR SPECIFIED. 
RO = SS$_IVLOGNAM = ZERO OR GREATER THAN MAXIMUM LENGTH 


COGICAL OR TABLE NAME STRING SPECIFIED. 
RO = SS$_IVLOGTAB - INVALID TABLE NAME SPECIFIED. 


RO = SS$_NOLOGNAM - LOGICAL NAME TABLE OR LOGICAL NAME 
SPECIFIED DOES NOT EXIST. 


RO = SS$_NOLOGTAB = LOGICAL NAME TABLE SPECIFIED DOES NOT EXIST. 


RO = SS$_NOPRIV = PROCESS DOES NOT HAVE PRIVILEGE TO DELETE 
THE SPECIFIED LOGICAL NAME(S). 


SS$_TOOMANYLNM = TOO MANY LEVELS OF RECURSION IN SEARCH 
FOR LOGICAL NAME TABLE OR LOGICAL NAME. 


RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = SS$_NORMAL = NORMAL COMPLETION. LOGICAL NAME(S) HAVE BEEN 
DELETED. 


RO 


SIDE EFFECTS: 
THIS ROUTINE EXITS AT IPL 2. | 
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SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 02:22:46 VAX/VMS Macro v04-00 P 
v04=000 EXESDELLNM - DELETE LOGICAL NAME Breer obe OSiserca PeNeMes Macro vOE=00, ae 73, 
0000000A 1 2 .PSECT YSEXEPAGED 
OFC A 187 SENTRY EXESDELLNM, “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
0660" 31 0 : A: BRW EXEDELLNM 
00000667 1880 .PSECT YFSSLNM 
667 1881 “ENABLE LSB 
50 (Ok i 667 g 900$: HOVZWL #SS$_ACCVIO,RO sACCESS VIOLATION 
50 14 3C 0668 1884 910$: MOVZWL #SS$_BADPARAM,RO ;BAD SYSTEM SERVICE PARAMETER 
04 066€ 1885 att RET v 
Ser 18 - 
peer 1888 ; VALIDATE AND COPY PARAMETERS AS NECESSARY. REGISTER ASSIGNMENT FOR THE 
066F 1889 : PARAMETERS ARE AS FOLLOWS: 
066F 1890 ; 
O66F 1891 : RS = ACCESS MODE. 
066F 189 ; R9 = ADDRESS OF PROBED AND COPIED TABLE NAME DESCRIPTOR. 
066F 1893 : R10 = ADDRESS OF PROBED AND COPIED LOGICAL NAME DESCRIPTOR. 
066F 1894 : 
066F 1895 
066F 1896 EXEDELLNM: 
066F 189 
SA 08 AC 09 QO66F 1898 MOVL DNLOGNAM(AP) ,R10 ;ADDRESS OF LOGICAL NAME DESCRIPTOR 
15 13 0673 1899 BEQL 108 ‘BRANCH IF NOT PRESENT 
0675 1900 IFNORD #8,(R10),900$ SCHECK ACCESS TO DESCRIPTOR 
50 6A 7E 0678 1901 MOVAQ  (R10),RO SADDRESS OF DESCRIPTOR 
FO7F' 30 O67E 1908 BSBW §LNMSPROBER [PROBE LOGICAL NAME STRING 
EA 50 E9 0681 190 BLBC RO, 930$ {BRANCH IF CAN'T READ OR NOT PRESENT 
7E 51 7D 0684 1904 MOV = R1,=( SP) 'SAVE LOGICAL NAME DESCRIPTO 
SA 5E—so= 0687 1905 _ MOVL SP.R10 + ADDRESS OF LOGICAL NAME DESCRIPTOR 
59 04 AC dO 9¢'74 1907 MOVL DNTABNAM(AP), RO ;ADDRESS OF yae NAME DESCRIPTOR 
DB 413 068E 1908 BEQL 910% TERROR IF NOT PRES 
0690 1909 IFNORD #8, (R9),900$ SCHECK ACCESS "6 DESCRIPTOR 
50 69 7E 0696 1910 MOVAQ (R9) :SET UP CALL 
F964" 30 0699 1911 BSBW  LNMSPROBER {PROBE TABLE NAME STRING 
CF 50 E9 069C 1918 BLBC  R0,930$ ;BRANCH IF CAN'T READ OR NOT PRESENT 
7E 51 7D O69F 191 MOVG = R1, = (SP) AVE TABLE NAME DESCRIPTOR 
59 5— 00 O6A2 1914 MOVL SPR SADDRESS OF TABLE NAME DESCRIPTOR 
50 OC AC 09 06A5 1916 MOVL - DNACMODE (AP) ,RO :GET SPECIFIED ACCESS Nove 
14 13 06A9 1917 BEQL ‘BRANCH IF PRESENT 
06AB 1918 IFNORD #1,(RO),9008 > CHECK access. TO VALUE 
50 60 9A 6B! 1919 MOVZBL (RO),RO’ [GET VALUE 
50 6003)~«O=1s(06B4 «1920 CMPL #PSL$C_USER.RO [CHECK FOR VALID ACCESS MODE 
B2 1F 06B7 1921 BLSSU 9108 SINVALID ACCESS MODE 
BS 384 
ry 1924 : IF THE ACCESS MODE OF THE LOGICAL NAME TABLE ENTRY(S) TO BE DELETED WAS 
6B9 1925 : EXPLICITELY SPECIFIED AND THE CALLER HAS THE SYSNAM PRIVILEGE, THEN THE 
689 19 6 : SPECIFIED ACCESS MODE IS USED TO QUALIFY THE LOGICAL NAME TABLE ENTRY(S) 
06B9 1927 : DELETION. OTHERWISE, THE ACCES OF THE CALLER IS MAXIMIZED WITH ANY 
689 19 8 : EXPLICTELY SPECIFIED ACCESS MODE AND USED TO QUALIFY THE LOGICAL NAME TABLE 
689 1929 : ENTRY(S) DELETION. 
rts 
6B9 1932 IFPRIV SYSNAM,30$ sCALLER HAS SYSNAM PRIVILEGE 


o_ 
ow 
mw 


~ 2 
w a@ se oO . 
rd —_+ wo a) w — > 
> <« tw = a - oan | « 
« wortree iid <= w w w <x o —_ = 
i oa a=VOw Io Los = ad ow vv 2 z a 
=z waz @orp _ <3Bw ot w Zw _ eal w - 
Ow I< qouvw vo fF wu az oa za o z> z 
he — K-43 =O “ow -—-= oO aw ws ws 
w xs ol Oww4 we =) oO oT: 4 a «ow x 
[+ a) zae wwnoad Otw ad < _- >oO a _ w 
wa | | Sp —+-a wu v ecu oo a om 
<< “nO J er w oar _ > oa z we uw =< 
I 2 uw 2 uWVdc aww w o a 2m ot va ze > 
<= oa > = w oa wo oO x=ea we z —uw usu _ 
uu Col’) w JjOw saw ure mw 4) vVwZzo z _ wos =z a 
So | en w9 <arzroac oOo ao =< —wo mu < = mw a 
“ ac 2 Vurk-wet wt o o <« <« = j= m Kz oa a 
Ow >a ot o4 a — ow -OoO Fa oa Faw w z ”“ w Ww 
a aad cr ooo w <ar —- Aorta 2 a oO Oww wn “nv 
wo aw et Ow2wis «rae > “OD ad $ 4 bw vv Kut <> ww 
az w >a le md aed ea fared woa > ow >< ws 
o -—o ~— 2 wu? 2 Kw Venu OuD wa w Nan — 3s ounm 
=m 22 I wa —- YOwe zn wae < - ou = “ao Qew <= ww 
ww ee wa xu: —=—=x wo WoRw ww « aa w Oo ac aww 
Zu w ao —-awnw -—-— Qa anw >a 4 (ST: a) i Ya 
evo ow u + EY > = va w> Nt ” oO vo Y2 wuwoa 
hd z - Ywdiwsr eczs -—2 wo> “orzo WM - <= w ne “WO 
3a 4) nw K—O2Z0rF- uw = w © qw == wo vd 
we —qtw z vu 2=za _ weo vz Vu ” we ve << 
Qu « ad wows wrw eu Z2ZEOZ wouw =u 7) dan oa eo 
waz in os oreo “Zz we u <qrw od w —NMO aw wa 
Ne (7,) — w ow wae a =| rr ied oO rw) cme aw zo 
—= w~ _ aeuarm ou <« “x <« =e ww 6B sw ev aw ad vVuwy 
=a ec> w Aw Mor Vv VW zxroac x= . 4 “ “ne 
— wa ww w ” atw2z <2 See YW we eww =o Oww 
aod xe “OU ertuect -ZzO << ood =x = w wow -oa> 
<w 4 zo ey ee) i) Ya Odcwx Our a — x=rew > ww ~oct 
=a we eu [ened + we —O s-YWwW Oo-0O a a —-~u [. Now 
eee —- © cere ea—IrZ S52 cere e*erere eters usw a — « ee carers 
<qw2z zs = Zw -3 =] ww z 
=z 2 —j—w ==> wo su wa 
- Om wwe v aud and wn “Yor z 
<q~ zravcwe os 2 wo a odw wet 
ora -O-r-=z aw ~ oc w we — 
“” 3 Zzww vows — w w 2 . 
w .* O.1n SE a zm 2a wo a 
re} an.uwM OoOdwuw ~~ a) . = Ww 
wito ww ow Oo2- w O&O (=) cw eae = N 
w >Zu “wo vw © a € wn ws wetoO wa < 
a w =) weowoaw ao oO . enw = | ad so . 
o I< w Svea ITH o = S uu al J +s ” 
= qw Qa vwvdtuc Vv oO w au <e— «anu 2a ” 
vu ~vur ti wa & Dew —j < 2 au vw vows w w 
< ts wn aovrw wut = ‘oo <a w —Jw Jo AV 
= woz <3 Awwaere or v oa oOo vw w= womuw << ow 
< >o ac AFD o « fA 3 =x za tote wow we 
= — Ju Bu muNZO SG ave oa oOo wo a ee ee . 8 
A —~+ = oO <— w euiz ‘cweF ££ Z za oO —u 
uAN wwe aw Bow os It a mo 2 qT -—m - ovo cr 
<a oraz A wtws wt o-e0O 1 # w az — 
ws — z= ware ist ” oe «Cz + SAY cu -_) _ -—a 
<oO - <2a =n” @ w2euw -—SOo &€a220 mnOoOwoO we @ wae mIa— 
oe Mut “nu <« tea2 Fu eco ~wsece ae~wTre@w = thd < zw zac 
xzOw Zwree-—<t eK row Kw i mw 
Sao == = -—< wes ad = 
ozo _ ae Bw ee Pp = oO w w wo | 
-OOoO a < = — a >3 Sw = = _ [ooo] 
| — — sz Wrtwet « wo +ji gogo stv @am™ - <« x rae n= 
a> ae -—-@ ——IZoe Fe LIM So 2>>00 aor@m wwoO 2 4 -o vou 
"oO Oww ww O-m w <«<o YW OOMWU Bwocx zu <= @aonp> 
= — It ow o3<iu4 tan -—-O F£EOO oOto@ ms J J =e oza. 
we a4 &§<tD eee zauM <« ev 
wo ~-~ wo nd a «wo =) ws 
” »@w~ teow wus wz _ _ we 
WO -—-Zodt zi Kww © o —-oO 
ee ee =<z=<xro uwZzaozrt Od wre oO o ox on 
BAH do | wee 22a oaraet 4 _ za b 4 
wre cere rere *e eere*e *e *e *e *e ee *e 8 *e Pete Fe *e Fe Fe *e*e*e*e*e "ete *e*e *e ~w 


Page 


o V04-00 
LNM.MAR; 1 


AX/VMS Macr 
SYS.SRCISYS 


Be 08:82:38 


oan 


C 
O MANIPULATE LOGICAL 


LOGICAL NAME 


—w 


PIF NOR OA O CIPI TIN DOR. OPO CIPI TWN OR. DAO CUM TFN OR. DHOOM FIN OR. DAO CUM TIN OR. COD 
PWV AF SF SF FT SF ST TTT TVUAINANIUNUANUNUIUNINNN OOOO 0O00000R-fR-R-R-AR_R-R_R. BR. OCD CD CD CDG060000000 
DADO DD DD DDO DD OS DOS OS OS Ds OS OS OS Os OS DB OS DS OS OD DODD DA AAA AA AAA A AAAAA AAA OS 


Deel ee eel ee ee eel el eel el ce ee el ed ee ee ee ee ee ce ee cee ee ee el el cel el el cee ee el el ce oe ee eh eh oh ee el el eh oe el el el oll ek el el eel el ee ce 


WOO GOGO GO CO GOODE -) CO Us ts 015 0 AAs LL LL LIOCUCNG OWT O OODOOODOOODOODOODOOO@OOOuw 
DLVVVEVYVVVVYVVYVVUVUVVUUVUVUVVVUGOOOOOGCQW Www WW 
WODOOOOOOOOOOOOOOOODOOODOOOOOOOOODODOOODOOOOOODOOOWMOOCGOOOOOO0O0O0O 
COOOOOOOSOSOSOOSOSSOSOSSSOSSSSOSSOSOSSSOSOSSSOSOSSOOSOSSSOSSSSOSSSSOOOSSSSSO 


we MU 
-a on arm 


<~wv ru 
nn MOoOdDWN 


uO 
ow 
oO 
o 
ow 
ow 
oO 
o 
o 
o 


ro V04-00 


SLNM.MAR; 1 


8 
mera TSTSEp=198e 08:54:58 Esvsusacisy 


O MANIPULATE L 
LOGICAL NAME 


SYSLNM 
v04-000 


w 
3 3 we Z 
w oy oy we mw w 2 ud 
w "or = wwe Ywo x= a a 
w = Yuvww Ree OO verte: 4 =~ Oo 
wo wwe oy adaw Vaomw w - 
=@ z —UOww wit of Orur “—z = ws 
a Qua + Fe w ae2z-< poe @ 
Pm | —aew <= wee QAwow vw z 
ve <«z 2 a z rt i ~ wa wea w 
4 4 vo waz <« yt | > Zzwawo wn af _ 
wn —— <qw> AaIWNe nu wiw ow —? 
Owe os or w @e <a«a5U0uW <« = | a => v 
wa a Ow wo wow BOF Se “Y<awWoO aa _ aa 
nv va —- « ao 7=o* — WHY Te od a al o 
” vw wm w w =e ON >Dawwreo yy &§OoO z oO w 
w oe a wa -w w Ooecoc oO w w 4 = 
= “Y«tew ww < — YVwxt a=e D2) wz « 
az “u vw w2 au wwe —Nwe > | zw oa z 
oo.6U.2lh Ul zo -—O + b+ <« s*tvurtw —-Zr< wr mw 
<= O2w =r — i. 4 ” = =6-2-—5 -> =e an of 
be or ww we aw Zowec wa Ae] s7s3S — mr <= 
ew > w Yu x UU oz aao oO mete — oc saw w lay vw 
ww aw + pe w ore ad e+ ° yn = =) we vwunD od 
ae -Ow wa —- @& act <oaia —-wwstia> Ow mw Ow o 
<Oo 220 wowuwrOoO 7 ar and | ws tea See auwa- <4 wae oO 
woe Oowa van <eouw «<w ~<a =99 za zozoa >w aMwe =) 
za ww vdt-O0O0 8 o w - [47 eer 4 JIE Oo w ve 
w @© <« Wee <x<« JZ oOwwa Kew ee < - « owa uw 
wwortZa woe 2 aIjVCZ 2) eu Ywreww aw 4 oz =x 
gx &§<O a@ew2e22zt <a> sy< wet Ize war te ‘> uO co 
- —- O2>00rwZz _ wig ts 4 ~eS= —-Ouww we 
awa ewes F£O wl xe . wOodcadtuort w wvoa ws ” == oO 
—-~wora> “rw O -—-a —- ow —-Z2oK- &— uu ww wo Mwvv be 
VSewDe wwe WwW ww =) we Ondw wae woe 
Kw —- A> eYUWYH= JIS er FH wIcwo Bs ” & © vot we. 
wilwwwse Oc«woortwsd wa ic e<aozkact <_< == wetwa nn 
Ovaeacw owa@c@aavaqa act oe 4 ee Wea — wo a <-ooD we 
eerererertets ee te terete tetete cere Oo w aa =O “$s n<9s w ow eterere me 
oo 2s 2 or w 2 va ve 
e- wetw 2 no JA kt —a ce 
= xow ~“-24S39 -w = w z 
mr. —-—O Ze w aw 4 <xqwm wo wo 
A on o WwowWwD— WwYEwuw ji —w 
ec co owner awraitr ee woww MZwMuw Yu cr 
s -_ NN aEnw w KOT za. ajzw Za NY e& 3a 
~~ -~ «= ae -—2a “sew | xWiow w 
a i-_— ._ Aas 2 umZzoz +Zoaw 2 ag—<aaoct wt nr 
ace = YW ew Ze “WO <qwZzort =< w — << 
~o wwe Ww =-°ce z wurst eK EK ue vZze--aa == 
wa IW w ft — we ero < me OO Zu a 2 - 
wa ovo wv wwe. t aw a - OFDM wr Oo ode z [+ 4 
@ i <a wo 22a 1 w MAwews —- OMDMA-a oe <« JI _ ww 
<~ -—-4 <«< «ati i Qwest ” J wwoo aw wz <« ao ww 
ev ee ‘| 22x_xwu w YOre Oo = Ww wror ee ee ee ” an 
[ ¥¥) > + w 6 Qu =| <= «€—w xX OtwWvuwiv oowJo@on oOo we << 
ajzrt £40 —- Ferrer HM Ww Bwwet w Weweow w weteanyw Ow [o teal ad vr 
RAY OOF Ww RMHRBY CO OO =zowe — ££ woe —— Kw OF - ~O 2 
@Oef MEO i @OOxe Do # weooact at FF u. OF Aa = Z-~“*r@O wu 
== Ze ww £2 > =e = ~- Ww Haze <a => zp oO Oz » x= 
22-082 Or 2222-0 20 a2a 2%" owt w Vaeaw wn Wazoo mw 
+jtjeeesy BeyuIIIaeec 0 2—-O0Owo < wre UMaewMHM + wooot +t: e~ Jj = 
= ftv ww G&A HENNY Ake Dee Kw dont 
aor Yew Dww YWMYIY a 4 
at af <t—-—- Ww w WeAweto weowset =z 
@iI@@OoD e232 Ow 4 WEOMvoOVO0O waewzact —M —_—4 
jz NInN<aaZBiuwe 3B — I-£ @O F-OOCOwWe St Fetes om jd Bwv < 
>mamw >u>>r>aam aa oo< <« =— §-OwWw02F@Oare -aQa~core- >>Qom ws 
oOMOouD oODOO0OO0OMNOY “Ya Ow sDa2Zzaz «zo Sosa ao 
=oaow =zaztezzoaom ag +ZzgGoO w o =z zzoo 22 
o<"-2 2 - arr “~ 
= Fan o o we “oo 
mw 
“uO0O0O.n. 3 <« 4 ore ahd +4 
2 S—VEQaAO - Ww vw Zur 4 ° 
rr il a i i Mie Mi et De i Be ed ek Be ek ek ed ee Be Be ek Bd Be eB te Be eh) Oo *eererte*s 


DH WPI TFN OR. DH OK OUIM TN OR. DHOOM CMT EVOR. DHO— CUM FIN OR. DAKO CMT MNOR. DHOOM INO 
PEE AAA AAO GD INICIO OEE PIII SF AF TTT OTT 
PARAPAO OAAAOOOOOOOOOSOOOOOOSOOSOOSOOSOOSOOSOSSOSOSSSOOSOSSOSOOOOOOSOOSOO 
III OI OI OI OI OI OS OI OI OI OI OI OI OI OI OI OI OS OS OI ONIONS IOI OI OI IOI ONIONS OI OI OI OOO OIOMIONIONIONS 


QO FH NICNINININ INICIO PION OOOO CINE 
a od ed ed Dd ed ee Did ed Died Dd Dd Died Sed Did Dd Dd Ded Dd Dd Dd Dd a Sad J ee ee ee St ed Sed ed Sd id i 
COOOOOOCOCOCOOOOSOOOSOOSOOSGSOSOSOSOSOCOSSOSOSOSSOSOSOSOSSOSOOSOSOSOSOOOSOOOOOOOOOooOooO 


oooea-— <xo<awwooe o- oackom 
oMmouuw Sesocoumes Me on~nmw 
w 
co te] 

CN OMe Orr OerNenO Vu NOowrOo 
qoumo dt omdyauwm oa- wmoaw 
oa - «oo oo oo 
vu Oo CO <n TF uw — 
oOo Nu - Oo ~ - 

~N N nm 
wr - mn 
~» 
- or 
nm ww 
- 
wn 


a 


& 
SYSLNM = SYSTEM SERVICES TO MANIPULATE LbcieaL 16-SEP-1984 02:22: AX/VMS Macro V04-00 Page 38 eef 
v04=000 EXESDELLNM = DELETE LOGICAL NAME gre 4 8¢:82'68 SYS.SRCJSYSLNM.MAR; 1 - 
7 47 
00 €1 07 § 48 BBC WLNMTHSV_SHAREABLE,- 1S THE TABLE PROCESS-PRIVATE? 
09 61 734 304 LNMTHSB_FLAGS(R1),70$ :1F SO THEN SKIP ACCESS CHECK 
52 é 2A 7 : 0 MOVZBL #WRITE_ACCESS,R2 SCODE FOR ACCESS CHECK 
£8 ' 9 7 BSBW OLN CHECK PROT :CHECK THE PROTECTION 
0650 € f ¢ BLBC =—-_-« RO, 80$ ‘QUIT ON FAILURE 
52. 55 20 73F 4 70$: MOVL  RS5,R2 sACCESS MODE 
F8BB' th BSBW = LNMSDELETE_TAB [DELETE ALL ENTIRES IN SPECIFIED TABLE 
74 3 
f ; UNLOCK THE LOGICAL NAME TABLE MUTEX AND RETURN STATUS TO CALLER. 
74 60 * 
50 pd 074 61 80$ PUSHL RO ZSAVE RETURN CODE OVER UNLOCKING 
F8B6' 0 074 6¢ BSBW  LNMSUNLOCK SUNLOCK TABLES 
50 8EDO 074A 06 POPL RO SRESTORE RETURN CODE 
04 074D 2064 SRETURN TO CALLER 
74E 2065 
are 066 DISABLE LSB 
06 
068 ; PAGE 


SYSLNM SYSTEM SERVICES TO MANIPULATE LO tea 1 -1984 02:22: AX/VMS Macro V04-00 Page 39 
v04-000 EXESTRNLNM = MS clare LOGICAL 36 §-§ oat 7 9g: 82:86 Heys. SRCJSYSLNM.MAR; 1 - & 

Jue ? - .SBTTL EXESTRNLNM - TRANSLATE LOGICAL NAME 

fae f ; EXESTRNLNM = TRANSLATE LOGICAL NAME 

74€ 507% : THIS SERVICE PROVIDES THE CAPABILITY TO LOOKUP A LOGICAL NAME IN THE SPECIFIED 
74E 2075 : LOGICAL NAME TABLE, AND TO RETURN INFORMATION ABOUT IT IN THE CALLER SPECIFIED 
bee 8 3; ITEM LIST. 

rae f > INPUTS: 

74E : TRATTR(AP) = ADDRESS OF LOGICAL NAME TRANSLATION ATTRIBUTES. 

Zoe : TRTABNAM(AP) = ADDRESS OF TABLE NAME STRING DESCRIPTOR. 

74 : TRLOGNAM(AP) = ADDRESS OF LOGICAL NAME STRING DESCRIPTOR. 

74E ; TRACMODE(AP) = ADDRESS OF ACCESS MODE. 

74e 4 : TRITMLST(AP) = ADDRESS OF ITEM LIST. 

24 6 ; R4 = CURRENT PROCESS PCB ADDRESS. 

74 8 $ OUTPUTS: 

ree 30 : RO LOW BIT CLEAR INDICATES FAILURE TO TRANSLATE LOGICAL NAME. 

74E 3 : RO = SS$_ACCVIO = LOGICAL NAME DESCRIPTOR, LOGICAL NAME STRING, 
74E 2093 : TABLE NAME DESCRIPTOR, TABLE STRING AN ITEM IN THE 
O74E 2094 : ITEM LIST, AN INDEX ITEM BUFFER CANNOT BE READ BY 

74E 2095 : CALLING ACCESS MODE. A TABLE ITEM BUFFER, A TABLE ITEM 
74E 09 : SIZE BUFFER, AN ATTRIBUTES ITEM BUFFER, AN ATTRIBUTES 
74E 2097 : ITEM SIZE BUFFER, A STRING ITEM BUFFER, A STRING ITEM 
74E 2098 : SIZE BUFFER, A LENGTH ITEM BUFFER, A LENGTH ITEM SIZE 
74E 2099 : BUFFER, AN ACMODE ITEM BUFFER, AN ACMODE ITEM SIZE 

74e 0 BUFFER CANNOT BE WRITTEN BY CALLING ACCESS MODE. 

746E 21 : : RO = SS$_BADPARAM = INVALID ATTRIBUTE, ACCESS MODE, ITEM TYPE, 
74E 2103 : TTEM LENGTH, SPECIFIED. LOGICAL NAME DESCRIPTOR OR 

ae 104 ; ABLE NAME DESCRIPTOR NOT SPECIFIED. 

74E 21 6 ; RO = SS$_IVLOGNAM = ZERO OR GREATER THAN MAXIMUM LENGTH 

ree ; COGICAL OR TABLE NAME STRING SPECIFIED. 

roe 199 : RO = SS$_IVLOGTAB = INVALID TABLE NAME SPECIFIED. 

74e HE : RO = SS$_NOLOGNAM = LOGICAL TABLE NAME ENTRY SPECIFIED DOES NOT 
74E 2113: 

rte 114: RO = SS$_NOPRIV = PROCESS DOES NOT HAVE PRIVILEGE TO ACCESS 

roe 115 : THE SPECIFIED LOGICAL NAME TABLE ENT 

74E 19 : RO = SS$_TOOMANYLNM - TOO MANY LEVELS OF RECURSION IN SEARCH 

24 118 : FOR LOGICAL NAME TABLE. 

ZOE 9 : RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

74E 1 ; : RO = S$S$_BUFFEROVF - REQUEST SUCCESSFULLY COMPLETED. AN ITEM 

24 3 BUFFER IS NOT LARGE ENOUGH TO HOLD REQUESTED DATA. 

7oe 3 : RO = SS$_NORMAL - NORMAL COMPLETION. 


G8 40 sy! 
Pot AX/VMS Macro Le Page 
voueo00 EXESTRNUNA'® TRANSLATE LOGICAL CNAME. 8 'STSEB=1SBG QGr8zi86 Yaucvins Macro, yOe.00 (8) vO 
7% 7 ; SIDE EFFECTS: 
i § : THIS ROUTINE EXITS AT IPL 2. 
74 : 
HE 18) i 
oer” F i ENERY EXE STRNC AM, “MCR2,R3.R4.RS.R6.R7-RB-RI.RIO.RI1> 
0742" 3 1 135 BRwW EXETRNLNM 
0000 te $ -PSECT VESSLNA 
50 Oc 3¢ re 1 § 900$: MOVZUL #SS$_ACCVIO,RO sACCESS VIOLATION 
i ie 12} 910$: AO VZUL #SS$_BADPARAM,RO ;BAD SYSTEM SERVICE PARAMETER 
50 14 «3c «(07 é 0 : 3 
04 135 148 920$: RET 
136 144 EXETRNLNM: 
38 123 ; GISTER ASSIGNMENT FOR THE 
t VALIDATE AND COPY PARAMETERS AS NECESSARY. RE 
, 3 148 > PARAMETERS ARE AS FOLLOWS: 
: ¢ 130 : RS = ACCESS MODE. | 
756 2151 ; = 
: ROBED AND COPIED TABLE NAME DESCRIPTOR. 
re 138 : Ryo . ADDRESS oF PROBED AN AND COPIED LOGICAL NAME DESCRIPTOR. 
0736 154 : R11 = ADDRESS OF START OF THE ITEM LIST. 
a } es AIN COUNTER 
7E 4 i 138 CLRL = = (SP) :THIS WILL EVENTUALLY BE CH 
ATION ATIRIBUTES 
57 O04 aC D 738 160 mOvL TRATTR(AP) ,R7 sraanen Hf N ATIRIBUTE 
," if 16 IFNORD #4,(R7),900$ CHECK 
57 67 Do 0764 5188 MOVE = (RP) .R?” GET VALUE 
wae i . rer 188 wie tin CASE_BLIND - ZCASE SENSITIVE VS. CASE INSENSITIVE 
7 16 R7 ~ ; wee 
E2 12 i 189 BNEQ 3108 : INVALID TRANSLATION pe poem: 
: SADDRESS OF LOGICAL NAME 
SA OL AC 09 77 189 10$: nov if QGNANCAP) ,R1C : ADDRE $ OF Log 
elie ae 15 1F NORD #8810) .9008 SCHECK ACCESS TO DESCRIPTOR 
50 7E Q77C 217 MOVAQ (R10),RO ; DESCRIPTOR 
00°50. i ay 17 BLBC borseon SBRANCH TF CANT READ OR NOT PRESENT 
BU Ree | Be BaP SLU othe td oltre 
4 ADDRESS OF TABLE NAME DESCRIPTOR 
=. =e 8 , 158 Beat pei: ‘ERROR IF NOT PRESENT 
= 8. ee ih PE NORD #8, (R9) 9008 [CHECK ACCESS TO DESCRIPTOR 
50 69 7 731 if MOVAQ (R 5 {ADDRESS OF DESCRIPTOR 
' A 21 BSBY LNMSPROBER ; NAME pee 
asso 3 3h 1 : BLBC —_- RO, 9208 SBRANCH IF CAN'T READ OR NO 
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S TO MANIPULATE LO ea 16-SEP-1984 02:22: AX/VMS Macro V04-00 Pa 41 SYS 
SLATE LOGICAL wine g7 Ee 1388 96:82:98 EOYs SRCISYSCNM MARS - v4 
MOVa = R11, = (SP) ;SAVE TABLE NAME DESCRIPT 
MOVL  SP.R9 ZADDRESS OF TABLE NAME DESCRIPTOR 
MOVZBL #PSLSC_USER,RS ;DEFAULT 1s USER MODE(ALL ACCESS) 
MOVL RACMODE (APS ,RO :GET SPECIFIED ACCESS MODE 
BEQL :BRANCH IF NOT PRESENT 
IFNORD #1,(RO),900$ SCHECK ACCESS 
MOVZBL (RO),R [DETERMINE ACCESS MODE OF LOGICAL NAME 
CMPL SPSLEC_USER RS SINVALID ACCESS MODE? 
BLSSU 91 SRETURN ERROR IF THIS IS THE CASE 
: RAISE IPL TO AST DELIVERY LEVEL SO THAT THERE ARE NO INTERRUPTIONS WHILE THE 
3 TRANSLATION OF THE LOGICAL NAME 1S BEING CARRIED OUT, LOCK THE LOGICAL NAME 
; MUTEX FOR READING, AND THEN SEARCH FOR THE SPECIFIED LOGICAL NAME. 
20008: SETIPL S*#1PL$ ASTDEL :RAISE TO AST DELIVERY LEVEL 
SBW SC LNMSLOCRR SLOCK TABLES FOR READING 
PUSHL R4 SSAVE PCB ADDRESS 
MOVa = (R10), RO SLOGICAL NAME DESCRIPTOR 
MOVQ = (R9) RZ “TABLE NAME DESCRIPTOR 
BBC Hs CASE_BLIND,R7,2010$;CASE INSENSITIVE SEARCH? 
BBSS #8,R5,2010$ sYES = SET CORRESPONDING BIT 
20108: 
.1F NE CA$S_MEASURE :CHECK FOR MEASUREMENT ENABLED 
te L“PMSS$GL_LOGNAM IF YES COUNT CURRENT TRANSLATION 
BSBW  — LNMSSEARCHLOG ;SEARCH FOR JUST SUCH A LOGICAL NAME 
PUSHL RO ;SAVE THE SEARCH STATUS 
BLBC  R0,3020$ ‘BRANCH IF NO NAME FOUND 
: CHECK THE CALLER'S ACCESS TO THE LOGICAL TABLE THAT HAS BEEN FOUND TO CONTAIN 
: THE SPECIFIED LOGICAL NAME. NOTE THAT ACCESS CHECKING IS NOT REQUIRED IF THE 
: LOGICAL NAME IS A PROCESS-PRIVATE LOGICAL NAME. 
MOVL  R1,R8 SADDRESS OF LOGICAL NAME BLOCK 
BBC #31,R1,3010$ SSKIP ACCESS CHECK IF PROCESS-PRIVATE 
MOVL  #READ_ACCESS,R2 [CODE FOR ACCESS CHECK 
MOVL 4(SP)7 TRESTORE PCB ADDR 
MOVL LNMBSL_TABLE(R8),R1 SADDRESS OF TABLE HEADER 
BSBW LNMSCHECK PROT [CHECK THE PROTECTION 
BLBS RO,3010$ [CONTINUE IF OKAY 
MOVL  RO.(SP) SSAVE ERROR STATUS 
BRB 30208 SAND EXIT 
t PROCESS THE ITEM LIST RETURNING WHAT INFORMATION THE CALLER WANTS INTO THE | 
: SPECIFIED ITEM BUFFERS. 
: VALID ITEMS ARE: | 
; ACMODE = ACCESS MODE OF LOGICAL NAME TABLE ENTRY. 
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MOVZWL 
QL 
IFNORD 


CASE 


CMPW 
BEQL 
BRW 
BRW 


MANIPULATE LOGICAL 16-SEP=1984 02:22:46 YAX/VMS Macro 04-00 Page 42 | 
TEAL NARE BSep-1obe 08:84:88 Peas eachSyScNM mage t oor 4} | 
ATTRIBUTES = ATTRIBUTES OF LOGICAL NAME _AND CURRENT TRANSLATION. 
INDEX = INDEX OF TRANSLATION (INPUT ITER). 
LENGT = LENGTH OF CURRENT TRANSLATION STRING. 
MAX. INDEX = MAXIMUM INDEX IN LOGICAL NAME TABLE ENTRY. 
STRIN = TRANSLATION. STRING. 
TABLE = LOGICAL NARE TABLE NAME. STRING. 
PARENT = PARENT LOGICAL NAME TABLE NAME STRING 


CURRENT TRANSLATION INDEX. 
ADDRESS OF FIRST LOGICAL NAME TRANSLATION BLOCK 
ADDRESS OF LOGICAL NAME TABLE . 
ADDRESS OF CURRENT LOGICAL NAME TRANSLATION BLOCK. 
ADDRESS OF CURRENT ITEM IN ITEM LIST. 
TRITALSTCAP) ,R11 ADDRESS OF ITEM LIST 
30308 :PROCESS ITEM LIST IF THERE IS ONE 
40108 ;BRANCH IF NONE 
LNMBST_NAME (RB) RO ;SIZE_OF LOGICAL NAME STRING 
LNMBST_NAME+1(RB)CROJ,RO;ADDRESS OF FIRST TRANSLATION BLOCK 
R9,R? ;SAVE THIS ADDRESS 
4 3DE INDEX IS 0 
#LNMX$V_XEND,- LAST TRANSLATION BLOCK? 
LNMX$B_FLAGS(R9),3038$ YES - THEN POSITION TO GET ITEM 
ENAXSBLINDEX(R9) :POSITION TO (OR PAST) O LNMX? 
038$ :YES = THEN POSITION TO GET ITEM 
LNAXST_XLATION(RO) ,RO_ SIZE OF TRANSLATION STRING 
NMX$T-XLATION+1(R9)CROJ,R9 ;POSITION TO NEXT TRANSLATION BLOCK 
0 : NUE LOOKING FOR SPECIFIED LNMX 
#4, (R11) ,30608 :CHECK IF FIRST LONGWORD READABLE 
gcRt1) .R2 :GET ITEM TYPE 
9208 [DONE IF ITEM TYPE IS ZERO 
#12,4(R11) 30608 :CHECK REST OF THIS DESCRIPTOR 
ZPLUS FIRST LONGWORD OF NEXT ONE 
R2,<- ;HANDLE EACH ITEM TYPE SEPARATELY 
100$, - ZINDEX ITEM 
j $,- [STRING ITEM 
$; - ZATTRIBUTES ITEM 
4008; - ;TABLE ITEM 
500$. - TLENGTH ITEM 
6008, - :ACMODE ITEM 
$, - :MAX_INDEX ITEM 
et aie [PARENT ITEM 
he eo ;CHECK FOR CHAINED ITEM LIST 
$ SILLEGAL ITEM 
Soent ACCVIO 


> PROCESS A CHAINED ITEM LIST. 


e< 


STRING ITEM. 

VALIDATE THE ITEM. IF THE CURRENT TRANSLATION BLOCK IS THE LAST 
TRANSLATION BLOCK, OR IF THE INDEX OF THE CURRENT TRANSLATION BLOCK 
DOES NOT MATCH THE INDEX LAST SPECIFIED, THEN NOTHING IS RETURNED 

: (A_ZERO IS STORED IN THE RETURN ADDRESS LENGTH BUFFER). OTHERWISE, 
’ THE EQUIVALENCE STRING OF THE SPECIFIED TRANSLATION IS RETURNED. 


SYSLNM ERVICES TO MANIPULATE rBeitan 16-SEP-1984 02:22: AX/VMS Macro V04-00 P 43 
$02 +000 Wes slare LOGICAL NAM at} §¢:82:38 SYS.SRCJSYSLNM.MAR; 1 th 
30708: INCL =4(FP) [UPDATE ITEM LIST CHAIN TER 
CMPW 0 = (FP), #1026 oe Os onan 
BGTR 305 $ :T00 MANY = ASSUME LOOP 
MOVL Ht: »,R11 [GET POINTER 
038$ :G0 PROCESS IT 
: INDEX ITEM. 
: VALIDATE THE ITEM. POSITION TO THE TRANSLATION BLOCK WITH THE SAME 
10 ; OR A GREATER INDEX THEN THAT SPECIFIED BY THE ITEM. 
1 e 
13 31008: CMPW #4,(R11) :1S ITEM BUFFER AT LEAST A LONGWORD? 
1 BGTRU 3050$ TERROR IF NOT 
1 VL  4(R11),R6 [PICK UP THE ITEM BUFFER ADDRESS 
1 IFNORD (R11), (R6),3060$ SPROBE IT FOR READABILIT 
1 CVTLB (RG) R6 [1S THE INDEX BETWEEN -127 AND 1277 
18 VS 30508 [NO = INVALID INDEX I 
1 MOVZBL RGR SZERO OUT HIGH ORDER THREE BYTES 
9 VL —sR7GR TADDRESS OF FIRST TRANSLATION BLOCK 
‘ 3110$: BBS #LNMXSV_XEND,= :LAST TRANSLATION BLOCK? 
LNMX$B_FLAGS(R9),3120$ :YES = THEN POSITION TO WEXT ITEM 
4 CMPB RG LNARSB_INDEX (9) :POSITION TO (OR PAST) REQUESTED LNMX? 
5 BLEQ 312808 [YES = THEN POSITION TO NEXT ITEM 
g MOVZBL LNMX$T_XLATION(R9) RO iS1ZE OF TRANSLATION STRING 
MOVAB LNMXST"XLATION+1(R9)CROJ.R9 ;POSITION TO NEXT TRANSLATION BLOCK 
§ BRB a1 $ SCONTINUE LOOKING FOR SPECIFIED LNM 
31208: BRW :GO POSITION TO NEXT ITEM 
9 
4 
5 
‘3 


e Se Se Ge Ge te te 


3200$: CLRQ RO SASSUME 0 BYTES WILL BE RETURNED 

BBS #LNMXSV_XEND, = :POSITION TO LAST LNMX? 
LNMX$B_FLAGS(R9),3210$ :YES - 0 BYTES WILL BE RETURNED 

CMPB RS LNARSB_INDEX(R9) [POSITIONED TO SPECIFIED LNMX? 
BNEQ 32408 [NO = 0 BYTES WILL BE RETURNED 
MOVAB LNMXST_XLATION(R9),R1 [RETRIEVE ADDRESS AND SIZE OF 
MOVB R1)+,RO [TRANSLATION STRING 

32108: BRW 900$ [GO MOVE STRING INTO CURRENT ITEM 


PADMA PEPE ERP EP © 
FPO OONOUS WN" OV 


: ATTRIBUTES ITEM. 
? VALIDATE THE ITEM. THE ATTRIBUTES OF THE LOGICAL NAME BLOCK ARE 


$< 


1a 


DF ato extstane SERVICES TO panteyeare vbgitaL _ $eO- 138% 8: g: $f AX/VMS Macro V04-00 Page 44 


RNLNM = TRANSLATE LOGICAL NAM SYS.S sacle SYSLNM.MAR; 1 


g SLATS RETURNED. IF A TRANSLATION WITH THE CURRENT INDEX EXISTS 
THEN T WE TRANSLATION ATTRIBUTES ARE RETURNED AND LNMSV_EXIST IS SET. 


52. 10 a8 9A 08B6 53008: MOVZBL LNMBSB FLA FLAGS(RB) , R2 :LOGICAL NAME BLOCK FLAGS 
EO O8BA ZPOSITION {O LAST LNMX? 
17 BBC LNMX$B Witte gap's SYES © TRANSLATION DOES NOT EXIST 
01 Ad 36 91 O86 CMPB RS NMRSB_INDEX(R ZPOSITIONED TO SPECIFIED LNMX? 
12 sc BNEQ ibs 3NO = TRANSLATION DOES NOT EXIST 
aA acs ¢ MOVZBL LNMX$B_FLAGS(R9) RO ; TRANS ATION BLOCK FLAGS 
i BC $ ROTL  #8,R0,RO ROTA nen INTO THEIR PROPER PLACE 
C BCB BISL2 RO. STOR eH 
52 C bc BISL2 #LNMSM_EXISTS,R2 +SET THE TRANSLATION DOES EXIST BIT 
51 9 ag 00 BD 9 3310S: MOVL LNMBSL TABLE(RB) , at :GET CONTAINING TABLE E HEADER ADDRESS 
E BD 7 BBC SLNATHEV  S AREABLE 31S THE CONTAINING TABLE SHAREABLE? 
07 f NMTHSB FLAGSIRT) $3208 :G0 MOVE ATTRIBUTES IF NOT 
00010000 8F cs 7 BISL2 aus NMSM_SHAREABLE ,R [SET SHAREABLE BIT 
00E2 31 r 3320$: BRW 760 MOVE ATTRIBUTES INTO CURRENT ITEM 
6 3 
7? ; TABLE ITEM. 
: VALIDATE THE ITEM. RETURN THE TABLE NAME STRING OF THE LOGICAL 
NAME TABLE IN WHICH THIS LOGICAL NAME TABLE ENTRY IS FOUND. 
51 OC AB OD 3400$: MOVL LNMBSL TABLE (R8) ,R1 : ADDRESS OF TABLE HEADER 
51 O9 Al OD MOVL LNMTHSC_NAME(R1),R1 DRESS OF TABLE LNMB 
51 11 a1 Of B LNMBST Ran E(R1),R1 RETRIEVE ADDRESS AND SIZE OF 
50 gi A MOVZBL CRTas RO LE 
007¢ = 31 3900$ :60 MOVE TABLE INTO CURRENT ITEM 
: LENGTH ITEM. 
; VALIDATE VHE ITEM. If THE CURRENT TRANSLATION BLOCK IS THE LAST 
: TRANSLATION BLOCK, OR IF THE INDEX OF THE CURRENT TRANSLATION 
+ BLOCK DOES NOT MATCH THE INDEX LAST SPECIFIED THEN NOTHING IS 
: RETURNED (A ZERO IS STORED IN THE DRESS LENGTH BUFFER). 
: OTHERWISE, THE LENGTH OF THE TRANSLATION" STRING OF THE SPECIFIED 
+ TRANSLATION IS RETURNED. 
52a 3500$: CLRL R2 ZASSUME 0 BYTES WILL BE RETURNED 
Px 02 E0 BBS #@LNMX$SV ;POSITION 19 LAST LNMX? 


rate Velics tag) 35108; YES = GO RETURN O LENGTH 
CMPB buns INDEX(R :POS1T1ONED 10 s SP CIF LED LNMX? 


BNEQ = NO 
MOVZBL a _XLATION(R9),R2 LENGTH OF TRANSLATION STRING 
35108: BRW $3 40$ [MOVE LONGOWRD ITEM VALUE 
; 208: BRW 980$ SBADPARAM 

11 > ACMODE ITEM. 


01 Ag 56 3 
52. 04 AD it 
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ERVICES TO MANIPULATE Lb tea 16-SEP-1984 02:22: AX/VMS Macro v04-00 Page 45 SYS 
- i ANSLATE LOGICAL nine g- Fen 88e 9¢:82:38 SYS.SRCJSYSLNM.MAR; 1 ” (6) v04 
; VALIDATE THE ITEM. RETURN THE ACCESS MODE OF THE LOGICAL NAME TABLE 
3600S: CMP 4 (R11) :1S ITEM BUFFER AT LEAST A BYTE? 
BGTRU 35208 sERROR IF NOT 
MOVL — 4(R11) RQ ;RETRIEVE ADDRESS OF ITEM BUFFER 
IFNOWRT #1, (ROS, 36208 [PROBE ITEM BUFFER 
MOVB NABSB_ACHODE (RB) , (RO) ZRETURN ACMODE IN CURRENT ITEM 
MOVL (R11) 7R [WAS A RETURN LENGTH BUFFER SPECIFIED? 
BEQL [DON'T RETURN LENGTH IF ONE WASN'T 
IFNOWRT # + (RO) ,36208 [PROBE RETURN LENGTH BUFFER 
MOVW = #7. (RO) :MOVE IN NUMBER OF BYTES RETURNED 
36108: BRW 39608 :GO POSITION TO NEXT ITEM 
620$: BRW 970$ SACCVIO 


MAX_INDEX ITEM. 


; VALIDATE THE ITEM. RETURN THE MAXIMUM POSITIVE INDEX DEFINED FOR 
THE LOGICAL NAME TABLE ENTRY. 


3 


Ps SS YS SS TSS 


BPEL EF WNW WINN NIIRRPOPOPONNONII e 


NOUS WN 9 OD NAUE WN OOO NAUN EWN OOO NOAUS UP os 


700$: MNEGL #1,R s INITIALIZE MAX_INDEX TO -1 
MOVL R7,R ADDRESS OF FIRST TRANSLATION BLOCK 
3710$: BBS #LNMXSV_XEND,- sPOSITION TO LAST LNMX? 
LNMX$B_FLAGS(R1),3720$ YES - HAVE FOUND MAXIMUM INDEX 

CVTBL LNMX$B~INDEX(R1) .R2 [NO = SAVE INDEX 

MOVZBL LNMX$T-XLATION(RI) RO. 9s iS1ZE,OF TRANSLATION STRING 

OVA ENAXSTIXLATION#T (RA) ROJ,R1 ;POSITION TO NEXT TRANSLATION BLOCK 
4 BRB 710$ [CONTINUE LOOKING FOR LAST LNMX 
447 3720$: TSTL R2 :1$ MAXIMUM INDEX A NEGATIVE NUMBER? 
448 BGEG 39408 =NO = GO RETURN MAXIMUM INDEX 
44 MNEGL #1,R2 [YES = SET MAXIMUM INDEX TO -1 
430 BRB 3940$ [GO MOVE MAXIMUM INDEX INTO CURRENT ITEM 
452 ; 
438 t PARENT TABLE ITEM. 
455 ; VALIDATE THE ITEM. IF THIS LNMB IS FOR A LOGICAL NAME TABLE, THEN RETURN 
4 ‘ + THE TABLE NAME STRING OF THIS TABLE'S PARENT LOGICAL NAME TABLE; OTHERWISE, 
457 : RETURN 0. 
39 | 
450 3800$: CLRQ RO ; ASSUME 0 BYTES WILL BE RETURNED 
4 BC #LNMBSV_TABLE,- ‘RETURN 0 BYTES IF THIS IS NOT A LNMB 
4 é LNMB$B_FLAGS(R8),3900$ FOR A LOGICAL NAME TABLE 
4 MOVAB LNMX$T-XLATION¢1(R7),R2 :POSITION TO TABLE HEADER 
464 MOVL NMTHSC_PARENT(R2) ,RO RETRIEVE PARENT TABLE HEADER ADDRESS 
465 BEQL 9 SRETURN O BYTES IF NO PARENT TABL 
4 : MOVL LNMTHSL_NAME(R2),R1 SRETRIEVE PARENT LNMB ADDRESS 
4 MOVAB LNMBST RAME(R1),R1 SRETRIEVE ADDRESS AND SIZE OF 
468 3810$: MOVB (R1)+,RO :PARENT TABLE NAME STRING 


m 8 
SYSLNM = SYSTEM SERVICES TO MANIPULATE LOGICAL 16-SEP-1984 AX/VMS He cro V04-00 Page 4 SYS 
502 +000 EXESTRNLNM = TRANSLATE LOGICAL NAME iat Pi 8g: gf: 8 SYS.SRCIS YSLNM.MAR; 1 . (S) v4 
3 cf 
975 2471 ; THE CURRENT ITEM IS TO BE FILLED IN WITH A VARIABLE LENGTH CHARACTER STRING 
975 2472 ; (TABLE, STRING, OR PARENT ITEM). IF THE ITEM BUFFER PROVI 
975 2473 : SUFFICIENTLY LARGE TO CONTAIN ALL OF THE STRING, THEN THE RETURN oT aTus Is 
975 2474 ; CHANGED TO INDICATE THIS, AND AS MUCH OF THE INFORMATION AS CAN BE STORED IS 
975 2475 ; RETURNED. 
gre Sith 
50 7D 097 478 3900$: MOVa  R0,-(SP) ySAVE CHARACTER STRING DESCRIPTOR 
7E 68 7D 0978 247 mMOVa (R41), =(SP) :SAVE ITEM BUFFER DESCRIPTOR 
51 6E 3 978 2480 MOV2WL (SP) ,R1 :SIZE OF ITEM BUFFER 
50° 04 AF D6 O97E 2481 MOVL 4 (SP5,RO SADDRESS OF ITEM BUFFER 
53 D4 «(09 4 5 CLRL sR SACCESS MODE 
00000000'GF 16 09 4 JSB G*EXESPROBEW [PROBE ITEM BUFFER 
51 BF 7D 098A 2484 MOVa (SP) +,R1 SRESTORE ITEM BUFFER DESCRIPTOR 
08 E8 098D 2485 BLBS ng. 39108 :CONTINUE IF WRITEABLE 
SE 08 CO 09 9 486 ADDL2 4#8.S5P SREMOVE STRING DESCRIPTOR FROM STACK 
6E 50 D0 0993 24 MOVL RO, (SP) SSAVE NEW STATUS 
60 11 o938 4 : BRB 4010$ :GO RELEASE MUTEX AND RETURN 
50 6E 09 0998 2490 3910$: MOVL (SP),RO ;SIZE OF CHARACTER STRIN ¢. TO 0 BE RETURNED 
1 13 0998 2491 BEQL 3930$ ‘NOTHING TO RETURN IF SIZ 
51 50 81 099D 49¢ CMPW 3=SsROR1 SENOUGH ROOM IN BUFFER? 
09 1B O9A0 249 BLEQU 3920$ [YES = GO MOVE INFORMATION 
08 AE 0601 er 3C O9A2 249% MOVZWL &#SS$_BUFFEROVF,8(SP) [NO = CHANGE STATUS TO BUFFER OVERFLOW 
50 1 C oN t32 MOVZWL R1,R0 3 AND MOVE ONLY PART OF STRING 
50 DD O9AB 497 3920S: PUSH RO ;SAVE SIZE OF STRING TO BE MOVED 
62 08 BE 50 28 O9AD 2498 MOVCS RO, a8(SP),(R2) [MOVE THE CHARACTER STRING 
50 8ED0 t985 499 RO SRESTORE NUMBER OF BYTES MOVED 
SE 08 CO 0985 2501 3930$: ADDL2 4#8,S : REMOVE STRING DESCRIPTOR FROM STACK 
52 08 AB 09 0988 308 MOVL BERIT), R2 WAS A RETURN LENGTH BUFFER SPECIFIED? 
2c 413 «09BC 250 BEQL 960 tDON'T PROBE IF ONE WA Net 
O9BE 2504 IFNOWRT #2, (RQ) ,39708 PROBE RETURN LENGTH BUFFER 
62 50 B60 o9c4 505 MOVW = RO, (2) [MOVE IN NUMBE F BYTES RETURNED 
21. 11—«09C7 306 BRB 3960S [GO POSITION TO NEXT ITEM 
Sy $38 
909 209 : THE CURRENT ITEM IS TO BE FILLED IN WITH A LONGWORD OF INFORMATION 
9¢9 319 : (LENGTH, MAX_INDEX, OR ATTRIBUTES ITEM). 
9(9 2512 ° 
6B 04 2861 033 218 3940$: CMPW #4,(R11) :1S ITEM BUFFER AT LEAST A LONGWORD? 
27. «1A «(09CC: «2514 BGTRU 3980$ TERROR IF 
50 04 AB DO O9CE 2515 MOVL _ 4(R11) RQ :RETRIEVE ADDRESS OF ITEM BUFFER 
9D 316 IFNOWRT #4 (ROS, 970$ [PROBE ITEM BUFFER 
60 52 DO 0908 251 MOVL  —R2, (RO) :RETURN VALUE IN CURRENT ITEM 
50 08 AB DO 090B 318 MOVL BCR IT) -RO SHAS A RETURN LENGTH BUFFER SPECIFIED? 
09 13 O9DF 31 BEQL 960$ [DON'T RETURN LENGTH IF oN NE W 
961 0 IFNOWRT #2,(RO),3970$ [PROBE RETURN LENGTH BUFFER 
60 04 B80 3E7 ; z OVW #4.(RO) [MOVE IN NUMBER OF BYTES RETURNED 
9EA ; 
SEA 2 4; : POSITION TO THE NEXT ITEM IN THE ITEM LIST. 
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#12,R11 POSITION TO NEXT ITEM 

3046$ SAND CONTINUE 

cf ACCVIO, (SP) sACCESS VIOLATION 

40108 ;DEALLOCATE NEW LNMB AND RETURN ERROR 
MOVZWL #SS$_BADPARAM, (SP) ;BAD PARAMETER SEEN 


4(SP) ,R4 ; ADDRESS OF PCB 
LNMSUNLOCK ; RELEASE LOCK ON 
RO ; At Mia RETURN 


. th te NAME MUTEX 


STATUS 


LSB 


SYSLNM 
Symbol table 


ARMSM_DELETE 
pret oA SS 


SELETt ACCESS 
DNACMODBE 
DNLOGNAM 


DNTAB 
DYNSC_LNM 
EXESACOP1PROC 
EXESALOPAGED 
EXESCRELNM 
EXESCRELNT 


EXESDELLNM 
EXESLNM_SYNTAX_DAT 
XACMODE 


EXESMA 
XES 


LNMSLOCKW 
LNMSM_CASE_BLIND 
LNNSA CONCEALED 


LNMSM~NO_ALIAS 
LNMSM~ SHAREABLE 


: 
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RRRRREER 


Q000000A 


REEEREER 
RERRREKE 
RRRRREEE 
REEREEEE 


0000001F 


Reeeeene 
eeeaeeree 
geereere 
rreerene 
geereenre 
geereere 
rtereetee 
gereeeee 


sii 
oe 


010000 


<a CK OO 


OOoOCCCOCOSGOOCOCCoCOoO 


MNMIMNINIWNPON Winn 


Oo 
Nm 


ololololoioioi=) 


L 
LNMSV"CONF INE 
LNNSV"SHAREABLE 


P 
PRVSV_SYSNAM 
PSLSC"USER 


OOOOCOOSoSO * QOOCOOOOOOO "SOO 


00000200 
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9 an YH 


SYS 
Pse 


SYSLNM 
Symbol table 


“NORMAL 
SS$~RESUL TOVF 
55$~ SUPERSEDE 
TRACMODE 


TRATTR 
TRITMLST 
TRLOGNAM 
TRTABNAM 
WRITE_ACCESS 


PSECT name 


Initialization 
Command processing 


ass 
Symbol table sort 
Pass 


a 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Oooooooooo 
Soooooooeoo 


SOOO OCO OOO 
= is s - oo = es. os 
AOO—00oUMD 


[oe york ing set Limit was 2100 pages. 
94360 bytes (185 pages) of virtua 
There were 70 pages of symbol table space allocat 
548 source Lines were read in Pass 1, producin 
pages of virtual memory were used to define 


sean nenaeaeeawecca$ 


NOPIC 
N 


OPIC 


eee re eee eee eee wee ee emer} 


wee remem eee owen esene eee an $ 


7 00:00:00.34 
5 oS SB 
¢ 00:00:31.49 
00:00:03.39 
00:00:13.20 
00:00:00.22 
00:00:00. 3 
0 B83 BRe¥ 
0 00:00:50.15 


memory were used to buffer the intermediate c 
$3 to hold 1116 non-local and 1 
object records in Pass 2. 


macros. 


AX/VMS Macro Vv04-00 
SYS.SRCJSYSLNM.MAR; 1 


NOWRT NOVEC BYTE 


, WRT NOVEC BYTE 


oge; 
9 local symbols. 
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SYSLNM 
VAX=11 Macro Run Statistics SYS.SRCJSYSLNM.MAR; 1 (6) Tat 


+ mcer eet encase enmenmenrcaesca + 


! Macro Library statistics ! 


toma eee er mean nner cccae te 2 


Macro Library name Macros defined 


Mitte? pave. -OBJJLIB.MLB;1 11 
SSSDUA SYSLIBIJSTARLET. MLB; 2 10 
retace (all Libraries) 21 


1208 GETS were required to define 21 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSLNM/OBJ=O0BJ$:SYSLNM MSRC$:SYSLNM/UPDATE=(ENH$:SYSLNM) +EXECMLS$/LIB 
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